ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_quadPack.F90
Go to the documentation of this file.
1!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3!!!! !!!!
4!!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5!!!! !!!!
6!!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7!!!! !!!!
8!!!! This file is part of the ParaMonte library. !!!!
9!!!! !!!!
10!!!! LICENSE !!!!
11!!!! !!!!
12!!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13!!!! !!!!
14!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16
138
139!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
140
142
143 use pm_kind, only: SK, IK, LK, RKH, RKB
144 use pm_mathConst, only: ninf, ninf_type
145 use pm_mathConst, only: pinf, pinf_type
146
147 implicit none
148
149 character(*, SK), parameter :: MODULE_NAME = "@pm_quadPack"
150
151!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
152
194 real(RKH) :: cs
195 end type
196
237 interface wcauchy_type
238
239 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
240
241#if RK5_ENABLED
242 PURE elemental module function wcauchy_typer_RK5(cs) result(wcauchy)
243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
244 !DEC$ ATTRIBUTES DLLEXPORT :: wcauchy_typer_RK5
245#endif
246 use pm_kind, only: RKC => RK5
247 real(RKC) , intent(in) :: cs
248 type(wcauchy_type) :: wcauchy
249 end function
250#endif
251
252#if RK4_ENABLED
253 PURE elemental module function wcauchy_typer_RK4(cs) result(wcauchy)
254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
255 !DEC$ ATTRIBUTES DLLEXPORT :: wcauchy_typer_RK4
256#endif
257 use pm_kind, only: RKC => RK4
258 real(RKC) , intent(in) :: cs
259 type(wcauchy_type) :: wcauchy
260 end function
261#endif
262
263#if RK3_ENABLED
264 PURE elemental module function wcauchy_typer_RK3(cs) result(wcauchy)
265#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
266 !DEC$ ATTRIBUTES DLLEXPORT :: wcauchy_typer_RK3
267#endif
268 use pm_kind, only: RKC => RK3
269 real(RKC) , intent(in) :: cs
270 type(wcauchy_type) :: wcauchy
271 end function
272#endif
273
274#if RK2_ENABLED
275 PURE elemental module function wcauchy_typer_RK2(cs) result(wcauchy)
276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
277 !DEC$ ATTRIBUTES DLLEXPORT :: wcauchy_typer_RK2
278#endif
279 use pm_kind, only: RKC => RK2
280 real(RKC) , intent(in) :: cs
281 type(wcauchy_type) :: wcauchy
282 end function
283#endif
284
285#if RK1_ENABLED
286 PURE elemental module function wcauchy_typer_RK1(cs) result(wcauchy)
287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
288 !DEC$ ATTRIBUTES DLLEXPORT :: wcauchy_typer_RK1
289#endif
290 use pm_kind, only: RKC => RK1
291 real(RKC) , intent(in) :: cs
292 type(wcauchy_type) :: wcauchy
293 end function
294#endif
295
296 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
297
298 end interface
299
300!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
301
345 type :: wsin_type
346 real(RKH) :: omega
347 end type
348
389 interface wsin_type
390
391 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
392
393#if RK5_ENABLED
394 PURE elemental module function wsin_typer_RK5(omega) result(wsin)
395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
396 !DEC$ ATTRIBUTES DLLEXPORT :: wsin_typer_RK5
397#endif
398 use pm_kind, only: RKC => RK5
399 real(RKC) , intent(in) :: omega
400 type(wsin_type) :: wsin
401 end function
402#endif
403
404#if RK4_ENABLED
405 PURE elemental module function wsin_typer_RK4(omega) result(wsin)
406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
407 !DEC$ ATTRIBUTES DLLEXPORT :: wsin_typer_RK4
408#endif
409 use pm_kind, only: RKC => RK4
410 real(RKC) , intent(in) :: omega
411 type(wsin_type) :: wsin
412 end function
413#endif
414
415#if RK3_ENABLED
416 PURE elemental module function wsin_typer_RK3(omega) result(wsin)
417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
418 !DEC$ ATTRIBUTES DLLEXPORT :: wsin_typer_RK3
419#endif
420 use pm_kind, only: RKC => RK3
421 real(RKC) , intent(in) :: omega
422 type(wsin_type) :: wsin
423 end function
424#endif
425
426#if RK2_ENABLED
427 PURE elemental module function wsin_typer_RK2(omega) result(wsin)
428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
429 !DEC$ ATTRIBUTES DLLEXPORT :: wsin_typer_RK2
430#endif
431 use pm_kind, only: RKC => RK2
432 real(RKC) , intent(in) :: omega
433 type(wsin_type) :: wsin
434 end function
435#endif
436
437#if RK1_ENABLED
438 PURE elemental module function wsin_typer_RK1(omega) result(wsin)
439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
440 !DEC$ ATTRIBUTES DLLEXPORT :: wsin_typer_RK1
441#endif
442 use pm_kind, only: RKC => RK1
443 real(RKC) , intent(in) :: omega
444 type(wsin_type) :: wsin
445 end function
446#endif
447
448 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
449
450 end interface
451
452!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
453
497 type :: wcos_type
498 real(RKH) :: omega
499 end type
500
541 interface wcos_type
542
543 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
544
545#if RK5_ENABLED
546 PURE elemental module function wcos_typer_RK5(omega) result(wcos)
547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
548 !DEC$ ATTRIBUTES DLLEXPORT :: wcos_typer_RK5
549#endif
550 use pm_kind, only: RKC => RK5
551 real(RKC) , intent(in) :: omega
552 type(wcos_type) :: wcos
553 end function
554#endif
555
556#if RK4_ENABLED
557 PURE elemental module function wcos_typer_RK4(omega) result(wcos)
558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
559 !DEC$ ATTRIBUTES DLLEXPORT :: wcos_typer_RK4
560#endif
561 use pm_kind, only: RKC => RK4
562 real(RKC) , intent(in) :: omega
563 type(wcos_type) :: wcos
564 end function
565#endif
566
567#if RK3_ENABLED
568 PURE elemental module function wcos_typer_RK3(omega) result(wcos)
569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
570 !DEC$ ATTRIBUTES DLLEXPORT :: wcos_typer_RK3
571#endif
572 use pm_kind, only: RKC => RK3
573 real(RKC) , intent(in) :: omega
574 type(wcos_type) :: wcos
575 end function
576#endif
577
578#if RK2_ENABLED
579 PURE elemental module function wcos_typer_RK2(omega) result(wcos)
580#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
581 !DEC$ ATTRIBUTES DLLEXPORT :: wcos_typer_RK2
582#endif
583 use pm_kind, only: RKC => RK2
584 real(RKC) , intent(in) :: omega
585 type(wcos_type) :: wcos
586 end function
587#endif
588
589#if RK1_ENABLED
590 PURE elemental module function wcos_typer_RK1(omega) result(wcos)
591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
592 !DEC$ ATTRIBUTES DLLEXPORT :: wcos_typer_RK1
593#endif
594 use pm_kind, only: RKC => RK1
595 real(RKC) , intent(in) :: omega
596 type(wcos_type) :: wcos
597 end function
598#endif
599
600 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
601
602 end interface
603
604!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
605
645 type :: GK15_type
646 end type
647
674 type(GK15_type) , parameter :: GK15 = GK15_type()
675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
676 !DIR$ ATTRIBUTES DLLEXPORT :: GK15
677#endif
678
698 real(RKB) , parameter :: nodeG7(4) = &
699 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
700 , 4.0584515137739716690660641207696146334738201409937012638704325179466381322612565532831268972774658776528675866604802e-01_RKB &
701 , 7.4153118559939443986386477328078840707414764714139026011995535196742987467218051379282683236686324705969251809311201e-01_RKB &
702 , 9.4910791234275852452618968404785126240077093767061778354876910391306333035484014080573077002792572414430073966699522e-01_RKB ]
703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
704 !DIR$ ATTRIBUTES DLLEXPORT :: nodeG7
705#endif
706
726 real(RKB) , parameter :: weightG7(4) = &
727 [ 4.1795918367346938775510204081632653061224489795918367346938775510204081632653061224489795918367346938775510204081633e-01_RKB &
728 , 3.8183005050511894495036977548897513387836508353386273475108345103070554643412970834868465934404480145031467176458536e-01_RKB &
729 , 2.7970539148927666790146777142377958248692506522659876453701403269361881043056267681324094290119761876632337521337205e-01_RKB &
730 , 1.2948496616886969327061143267908201832858740225994666397720863872465523497204230871562541816292084508948440200163443e-01_RKB ]
731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
732 !DIR$ ATTRIBUTES DLLEXPORT :: weightG7
733#endif
734
754 real(RKB) , parameter :: nodeK15(8) = &
755 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
756 , 2.0778495500789846760068940377324491347978440714517064971384573461986693844943520226910343227183698530560857645062738e-01_RKB &
757 , 4.0584515137739716690660641207696146334738201409937012638704325179466381322612565532831268972774658776528675866604802e-01_RKB &
758 , 5.8608723546769113029414483825872959843678075060436095130499289319880373607444407464511674498935942098956811555121368e-01_RKB &
759 , 7.4153118559939443986386477328078840707414764714139026011995535196742987467218051379282683236686324705969251809311201e-01_RKB &
760 , 8.6486442335976907278971278864092620121097230707408814860145771276706770813259572103585847859604590541475281326027862e-01_RKB &
761 , 9.4910791234275852452618968404785126240077093767061778354876910391306333035484014080573077002792572414430073966699522e-01_RKB &
762 , 9.9145537112081263920685469752632851664204433837033470129108741357244173934653407235924503509626841760744349505339308e-01_RKB ]
763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
764 !DIR$ ATTRIBUTES DLLEXPORT :: nodeK15
765#endif
766
786 real(RKB) , parameter :: weightK15(8) = &
787 [ 2.0948214108472782801299917489171426369776208022370431671299800656137515132325648616816908211675949102392971459688215e-01_RKB &
788 , 2.0443294007529889241416199923464908471651760418071835742447095312045467698546598879348374292009347554167803659293064e-01_RKB &
789 , 1.9035057806478540991325640242101368282607807545535835588544088036744058072410212679605964605106377593834568683551139e-01_RKB &
790 , 1.6900472663926790282658342659855028410624490030294424149734006755695680921619029112936702403855359908156070095656537e-01_RKB &
791 , 1.4065325971552591874518959051023792039988975724799857556174546893312708093090950408097379122415555910759700350860143e-01_RKB &
792 , 1.0479001032225018383987632254151801744375665421383061189339065133963746321576289524167571627509311333949422518201492e-01_RKB &
793 , 6.3092092629978553290700663189204286665071157211550707113605545146983997477964874928199170264504441995865872491871943e-02_RKB &
794 , 2.2935322010529224963732008058969591993560811275746992267507430254711815787976075946156368168156289483493617134063245e-02_RKB ]
795#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
796 !DIR$ ATTRIBUTES DLLEXPORT :: weightK15
797#endif
798
799!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
800
840 type :: GK21_type
841 end type
842
870 type(GK21_type) , parameter :: GK21 = GK21_type()
871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
872 !DIR$ ATTRIBUTES DLLEXPORT :: GK21
873#endif
874
894 real(RKB) , parameter :: nodeG10(5) = &
895 [ 1.4887433898163121088482600112971998461756485942069169570798925351590361735566852137117762979946369123003116080525534e-01_RKB &
896 , 4.3339539412924719079926594316578416220007183765624649650270151314376698907770350122510275795011772122368293504099894e-01_RKB &
897 , 6.7940956829902440623432736511487357576929471183480946766481718895255857539507492461507857357048037949983390204739932e-01_RKB &
898 , 8.6506336668898451073209668842349304852754301496533045252195973184537475513805556135679072894604577069440463108641177e-01_RKB &
899 , 9.7390652851717172007796401208445205342826994669238211923121206669659520323463615962572356495626855625823304251877421e-01_RKB ]
900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
901 !DIR$ ATTRIBUTES DLLEXPORT :: nodeG10
902#endif
903
923 real(RKB) , parameter :: weightG10(5) = &
924 [ 2.9552422471475287017389299465133832942104671702685360135430802975599593821715232927035659579375421672271716440125256e-01_RKB &
925 , 2.6926671930999635509122692156946935285975993846088379580056327624215343231917927676422663670925276075559581145036870e-01_RKB &
926 , 2.1908636251598204399553493422816319245877187052267708988095654363519991065295128124268399317720219278659121687281289e-01_RKB &
927 , 1.4945134915058059314577633965769733240255663966942736783547726875323865472663001094594726463473195191400575256104544e-01_RKB &
928 , 6.6671344308688137593568809893331792857864834320158145128694881613412064084087101776785509685058877821090054714520419e-02_RKB ]
929#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
930 !DIR$ ATTRIBUTES DLLEXPORT :: weightG10
931#endif
932
952 real(RKB) , parameter :: nodeK21(11) = &
953 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
954 , 1.4887433898163121088482600112971998461756485942069169570798925351590361735566852137117762979946369123003116080525534e-01_RKB &
955 , 2.9439286270146019813112660310386556616268662515695791864888229172724611166332737888445523178268237359119185139299872e-01_RKB &
956 , 4.3339539412924719079926594316578416220007183765624649650270151314376698907770350122510275795011772122368293504099894e-01_RKB &
957 , 5.6275713466860468333900009927269414084301388194196695886034621458779266353216327549712087854169992422106448211158815e-01_RKB &
958 , 6.7940956829902440623432736511487357576929471183480946766481718895255857539507492461507857357048037949983390204739932e-01_RKB &
959 , 7.8081772658641689706371757834504237716340752029815717974694859999505607982761420654526977234238996241110129779403362e-01_RKB &
960 , 8.6506336668898451073209668842349304852754301496533045252195973184537475513805556135679072894604577069440463108641177e-01_RKB &
961 , 9.3015749135570822600120718005950834622516790998193924230349406866828415983091673055011194572851007884702013619684320e-01_RKB &
962 , 9.7390652851717172007796401208445205342826994669238211923121206669659520323463615962572356495626855625823304251877421e-01_RKB &
963 , 9.9565716302580808073552728068900284792126058721947892436337916111757023046774867357152325996912076724298149077812671e-01_RKB ]
964#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
965 !DIR$ ATTRIBUTES DLLEXPORT :: nodeK21
966#endif
967
987 real(RKB) , parameter :: weightK21(11) = &
988 [ 1.4944555400291690566493646838982120374523631668747280383560851873698964478511841925721030705689540264726493367634340e-01_RKB &
989 , 1.4773910490133849137484151597206804552373162548520660451819195439885993016735696405732703959182882254268727823258502e-01_RKB &
990 , 1.4277593857706008079709427313871706088597905653190555560741004743970770449909340027811131706283756428281146832304737e-01_RKB &
991 , 1.3470921731147332592805400177170683276099191300855971406636668491320291400121282036676953159488271772384389604997640e-01_RKB &
992 , 1.2349197626206585107795810983107415951230034952864832764467994120974054238975454689681538622363738230836484113389878e-01_RKB &
993 , 1.0938715880229764189921059032580496027181329983434522007819675829826550372891432168683899432674553842507906611591517e-01_RKB &
994 , 9.3125454583697605535065465083366344390018828880760031970085038760177735672200775237414123061615827474831165614953012e-02_RKB &
995 , 7.5039674810919952767043140916190009395219382000910088173697048048430404342858495178813808730646554086856929327903059e-02_RKB &
996 , 5.4755896574351996031381300244580176373721114058333557524432615804784098927818975325116301569003298086458722055550981e-02_RKB &
997 , 3.2558162307964727478818972459389760617388939845662609571537504232714121820165498692381607605384626494546068817765276e-02_RKB &
998 , 1.1694638867371874278064396062192048396217332481931888927598147525622222058064992651806736704969967250888097490233242e-02_RKB ]
999#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1000 !DIR$ ATTRIBUTES DLLEXPORT :: weightK21
1001#endif
1002
1003!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1004
1045 end type
1046
1074 type(GK31_type) , parameter :: GK31 = GK31_type()
1075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1076 !DIR$ ATTRIBUTES DLLEXPORT :: GK31
1077#endif
1078
1098 real(RKB) , parameter :: nodeG15(8) = &
1099 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1100 , 2.0119409399743452230062830339459620781283645446263767961594972460994823900302018760183625806752105908967902257386509e-01_RKB &
1101 , 3.9415134707756336989720737098104546836275277615869825503116534395160895778696141797549711416165976202589352169635648e-01_RKB &
1102 , 5.7097217260853884753722673725391064123838639628274960485326541705419537986975857948341462856982614477912646497026257e-01_RKB &
1103 , 7.2441773136017004741618605461393800963089929458410256355142342070412378167792521899610109760313432626923598549381925e-01_RKB &
1104 , 8.4820658341042721620064832077421685136625617473699263409572755876067507517414548519760771975082148085090373835713340e-01_RKB &
1105 , 9.3727339240070590430775894771020947124399627351530445790136307635020297379704552795054758617426808659746824044603157e-01_RKB &
1106 , 9.8799251802048542848956571858661258114697281712376148999999751558738843736901942471272205036831914497667516843990079e-01_RKB ]
1107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1108 !DIR$ ATTRIBUTES DLLEXPORT :: nodeG15
1109#endif
1110
1130 real(RKB) , parameter :: weightG15(8) = &
1131 [ 2.0257824192556127288062019996751931483866215800947735679670411605143539875474607409339344071278803213535148267082999e-01_RKB &
1132 , 1.9843148532711157645611832644383932481869255995754199348473792792912479753343426813331499916481782320766020854889310e-01_RKB &
1133 , 1.8616100001556221102680056186642282450622601227792840281549572731001325550269916061894976888609932360539977709001384e-01_RKB &
1134 , 1.6626920581699393355320086048120881113090018009841290732186519056355356321227851771070517429241553621484461540657185e-01_RKB &
1135 , 1.3957067792615431444780479451102832252085027531551124320239112863108844454190781168076825736357133363814908889327664e-01_RKB &
1136 , 1.0715922046717193501186954668586930341554371575810198068702238912187799485231579972568585713760862404439808767837506e-01_RKB &
1137 , 7.0366047488108124709267416450667338466708032754330719825907292914387055512874237044840452066693939219355489858595041e-02_RKB &
1138 , 3.0753241996117268354628393577204417721748144833434074264228285504237189467117168039038770732399404002516991188859473e-02_RKB ]
1139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1140 !DIR$ ATTRIBUTES DLLEXPORT :: weightG15
1141#endif
1142
1162 real(RKB) , parameter :: nodeK31(16) = &
1163 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1164 , 1.0114206691871749902707423144739233878745105740164180495800189504151097862454083050931321451540380998341273193681967e-01_RKB &
1165 , 2.0119409399743452230062830339459620781283645446263767961594972460994823900302018760183625806752105908967902257386509e-01_RKB &
1166 , 2.9918000715316881216678002426638896266160338274382080184125545738918081102513884467602322020157243563662094470221235e-01_RKB &
1167 , 3.9415134707756336989720737098104546836275277615869825503116534395160895778696141797549711416165976202589352169635648e-01_RKB &
1168 , 4.8508186364023968069365574023235061286633893089407312129367943604080239955167155974371848690848595275551258416303565e-01_RKB &
1169 , 5.7097217260853884753722673725391064123838639628274960485326541705419537986975857948341462856982614477912646497026257e-01_RKB &
1170 , 6.5099674129741697053373589531327469254694822609259966708966160576093305841043840794460394747228060367236079289132544e-01_RKB &
1171 , 7.2441773136017004741618605461393800963089929458410256355142342070412378167792521899610109760313432626923598549381925e-01_RKB &
1172 , 7.9041850144246593296764929481794734686214051995697617332365280643308302974631807059994738664225445530963711137343440e-01_RKB &
1173 , 8.4820658341042721620064832077421685136625617473699263409572755876067507517414548519760771975082148085090373835713340e-01_RKB &
1174 , 8.9726453234408190088250965645449588283177871149442786763972687601078537721473771221195399661919716123038835639691946e-01_RKB &
1175 , 9.3727339240070590430775894771020947124399627351530445790136307635020297379704552795054758617426808659746824044603157e-01_RKB &
1176 , 9.6773907567913913425734797878433722528335733730013163797468062226335804249452174804319385048203118506304424717089291e-01_RKB &
1177 , 9.8799251802048542848956571858661258114697281712376148999999751558738843736901942471272205036831914497667516843990079e-01_RKB &
1178 , 9.9800229869339706028517284015227120907340644231555723034839427970683348682837134566648979907760125278631896777136104e-01_RKB ]
1179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1180 !DIR$ ATTRIBUTES DLLEXPORT :: nodeK31
1181#endif
1182
1202 real(RKB) , parameter :: weightK31(16) = &
1203 [ 1.0133000701479154901737479276749254677092627259659629246734858372174107615774696665932418050683956749891773195816338e-01_RKB &
1204 , 1.0076984552387559504494666261756972191634838013536373069278929029488122760822761077475060185965408326901925180106227e-01_RKB &
1205 , 9.9173598721791959332393173484603131059567260816713281734860095693651563064308745717056680128223790739026832596087552e-02_RKB &
1206 , 9.6642726983623678505179907627589335136656568630495198973407668882934392359962841826511402504664592185391687490319950e-02_RKB &
1207 , 9.3126598170825321225486872747345718561927881321317330560285879189052002874531855060114908990458716740695847509343865e-02_RKB &
1208 , 8.8564443056211770647275443693774303212266732690655967817996052574877144544749814260718837576325109922207832119243346e-02_RKB &
1209 , 8.3080502823133021038289247286103789601554188253368717607281604875233630643885056057630789228337088859687986285569521e-02_RKB &
1210 , 7.6849680757720378894432777482659006722109101167947000584089097112470821092034084418224731527690291913686588446455555e-02_RKB &
1211 , 6.9854121318728258709520077099147475786045435140671549698798093177992675624987998849748628778570667518643649536771245e-02_RKB &
1212 , 6.2009567800670640285139230960802932190400004210329723569147829395618376206272317333030584268303808639229575334680414e-02_RKB &
1213 , 5.3481524690928087265343147239430296771554760947116739813222888752727413616259625439714812475198987513183153639571249e-02_RKB &
1214 , 4.4589751324764876608227299373279690223256649667921096570980823211805450700059906366455036418897149593261561551176267e-02_RKB &
1215 , 3.5346360791375846222037948478360048122630678992420820868148023340902501837247680978434662724296810081131106317333086e-02_RKB &
1216 , 2.5460847326715320186874001019653359397271745046864640508377984982400903447009185267605205778819712848080691366407461e-02_RKB &
1217 , 1.5007947329316122538374763075807268094639436437387634979291759700896494746154334398961710227490402528151677469993935e-02_RKB &
1218 , 5.3774798729233489877920514301276498183080402431284197876486169536848635554354599213793172596490038991436925569025913e-03_RKB ]
1219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1220 !DIR$ ATTRIBUTES DLLEXPORT :: weightK31
1221#endif
1222
1223!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1224
1265 end type
1266
1294 type(GK41_type) , parameter :: GK41 = GK41_type()
1295#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1296 !DIR$ ATTRIBUTES DLLEXPORT :: GK41
1297#endif
1298
1318 real(RKB) , parameter :: nodeG20(10) = &
1319 [ 7.6526521133497333754640409398838211004796266813497500804795244384256342048336978241545114181556215606998505646364133e-02_RKB &
1320 , 2.2778585114164507808049619536857462474308893768292747231463573920717134186355582779495212519096870803177373131560430e-01_RKB &
1321 , 3.7370608871541956067254817702492723739574632170568271182794861351564576437305952789589568363453337894476772208852815e-01_RKB &
1322 , 5.1086700195082709800436405095525099842549132920242683347234861989473497039076572814403168305086777919832943068843526e-01_RKB &
1323 , 6.3605368072651502545283669622628593674338911679936846393944662254654126258543013255870319549576130658211710937772596e-01_RKB &
1324 , 7.4633190646015079261430507035564159031073067956917644413954590606853535503815506468110411362064752061238490065167656e-01_RKB &
1325 , 8.3911697182221882339452906170152068532962936506563737325249272553286109399932480991922934056595764922060422035306914e-01_RKB &
1326 , 9.1223442825132590586775244120329811304918479742369177479588221915807089120871907893644472619292138737876039175464603e-01_RKB &
1327 , 9.6397192727791379126766613119727722191206032780618885606353759389204158078438305698001812525596471563131043491596423e-01_RKB &
1328 , 9.9312859918509492478612238847132027822264713090165589614818413121798471762775378083944940249657220927472894034724419e-01_RKB ]
1329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1330 !DIR$ ATTRIBUTES DLLEXPORT :: nodeG20
1331#endif
1332
1352 real(RKB) , parameter :: weightG20(10) = &
1353 [ 1.5275338713072585069808433195509759349194864511237859727470104981759745316273778153557248783650390593544001842813788e-01_RKB &
1354 , 1.4917298647260374678782873700196943669267990408136831649621121780984442259558678069396132603521048105170913854567338e-01_RKB &
1355 , 1.4209610931838205132929832506716493303451541339202030333736708298382808749793436761694922428320058260133068573666201e-01_RKB &
1356 , 1.3168863844917662689849449974816313491611051114698352699643649370885435642948093314355797518397262924510598005463625e-01_RKB &
1357 , 1.1819453196151841731237737771138228700504121954896877544688995202017474835051151630572868782581901744606267543092317e-01_RKB &
1358 , 1.0193011981724043503675013548034987616669165602339255626197161619685232202539434647534931576947985821375859035525483e-01_RKB &
1359 , 8.3276741576704748724758143222046206100177828583163290744882060785693082894079419471375190843790839349096116111932764e-02_RKB &
1360 , 6.2672048334109063569506535187041606351601076578436364099584345437974811033665678644563766056832203512603253399592073e-02_RKB &
1361 , 4.0601429800386941331039952274932109879090639989951536817606854561832296750987328295538920623044384976189825709675075e-02_RKB &
1362 , 1.7614007139152118311861962351852816362143105543336732524349326677348419259621847817403105542146097668703716227512570e-02_RKB ]
1363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1364 !DIR$ ATTRIBUTES DLLEXPORT :: weightG20
1365#endif
1366
1386 real(RKB) , parameter :: nodeK41(21) = &
1387 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1388 , 7.6526521133497333754640409398838211004796266813497500804795244384256342048336978241545114181556215606998505646364133e-02_RKB &
1389 , 1.5260546524092267550522024102267752791167622481841730660174156703809133685751696356987995886397049724808931527012542e-01_RKB &
1390 , 2.2778585114164507808049619536857462474308893768292747231463573920717134186355582779495212519096870803177373131560430e-01_RKB &
1391 , 3.0162786811491300432055535685859226061539650501373092456926374427956957435978384116066498234762220215751079886015902e-01_RKB &
1392 , 3.7370608871541956067254817702492723739574632170568271182794861351564576437305952789589568363453337894476772208852815e-01_RKB &
1393 , 4.4359317523872510319999221349264010784010101082300309613315028346299543059315258601993479156987847429893626854030516e-01_RKB &
1394 , 5.1086700195082709800436405095525099842549132920242683347234861989473497039076572814403168305086777919832943068843526e-01_RKB &
1395 , 5.7514044681971031534294603658642513281381264014771682537415885495717468074720062012357788489049470208285175093670561e-01_RKB &
1396 , 6.3605368072651502545283669622628593674338911679936846393944662254654126258543013255870319549576130658211710937772596e-01_RKB &
1397 , 6.9323765633475138480549071184593153338642585141021417904687378454301191710739219011546672416325022748282227809465165e-01_RKB &
1398 , 7.4633190646015079261430507035564159031073067956917644413954590606853535503815506468110411362064752061238490065167656e-01_RKB &
1399 , 7.9504142883755119835063883327278794295938959911578029703855163894322697871710382866701777890251824617748545658564370e-01_RKB &
1400 , 8.3911697182221882339452906170152068532962936506563737325249272553286109399932480991922934056595764922060422035306914e-01_RKB &
1401 , 8.7827681125228197607744299511307846671124526828251164853898086998248145904743220740840261624245683876748360309079747e-01_RKB &
1402 , 9.1223442825132590586775244120329811304918479742369177479588221915807089120871907893644472619292138737876039175464603e-01_RKB &
1403 , 9.4082263383175475351998272221244338027429557377965291059536839973186796006557571220888218676776618448841584569497535e-01_RKB &
1404 , 9.6397192727791379126766613119727722191206032780618885606353759389204158078438305698001812525596471563131043491596423e-01_RKB &
1405 , 9.8150787745025025919334299472021694456725093981023759869077533318793098857465723460898060491887511355706497739384103e-01_RKB &
1406 , 9.9312859918509492478612238847132027822264713090165589614818413121798471762775378083944940249657220927472894034724419e-01_RKB &
1407 , 9.9885903158827766383831557654586300999957020432629666866666860339324411793311982967839129772854179884971700274369367e-01_RKB ]
1408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1409 !DIR$ ATTRIBUTES DLLEXPORT :: nodeK41
1410#endif
1411
1431 real(RKB) , parameter :: weightK41(21) = &
1432 [ 7.6600711917999656445049901530101740827932500628670118055485349620314721456712029449597396569857880493210849110825276e-02_RKB &
1433 , 7.6377867672080736705502835038061001800801036764945996714946431116936745542061941050008345047482501253320401746334511e-02_RKB &
1434 , 7.5704497684556674659542775376616558263363155900414326194855223272348838596099414841886740468379707283366777797425290e-02_RKB &
1435 , 7.4582875400499188986581418362487528616116493572092273080047040726969899567887364227664202642942357104526915332274625e-02_RKB &
1436 , 7.3030690332786667495189417658913112760626845234552742380174250771849743831660040966804802312464527721645765620253776e-02_RKB &
1437 , 7.1054423553444068305790361723210167412912159322210143921628270586407381879789525901086146473278095159807542174985045e-02_RKB &
1438 , 6.8648672928521619345623411885367801715489704958239860400434264173923806029589970941711224257967651039544669425313433e-02_RKB &
1439 , 6.5834597133618422111563556969397943147223506343381443709751749639944420314384296347503523810096842402960802728781816e-02_RKB &
1440 , 6.2653237554781168025870122174254980585819744698897886186553324157100424088919284503451596742588386343548162830898103e-02_RKB &
1441 , 5.9111400880639572374967220648594217136419365977042191748388047204015262840407696611508732839851952697839735487615776e-02_RKB &
1442 , 5.5195105348285994744832372419777329194753456228153116909812131213177827707884692917845453999535518818940813085110223e-02_RKB &
1443 , 5.0944573923728691932707670050344948664836365809262579747517140086119113476866735641054822574173198900379392130050979e-02_RKB &
1444 , 4.6434821867497674720231880926107516842127071007077929289994127933243222585938804392953931185146446072587020288747981e-02_RKB &
1445 , 4.1668873327973686263788305936894738043960843153010324860966353235271889596379726462208702081068715463576895020003842e-02_RKB &
1446 , 3.6600169758200798030557240707211008487453496747498001651070009441973280061489266074044986901436324295513243878212345e-02_RKB &
1447 , 3.1287306777032798958543119323800737887769280362813337359554598005322423266047996771926031069705049476071896145456496e-02_RKB &
1448 , 2.5882133604951158834505067096153142999479118048674944526997797755374306421629440393392427198869345793286369198147609e-02_RKB &
1449 , 2.0388373461266523598010231432754705122838627940185929365371868214433006532030353671253640300679157504987977281782909e-02_RKB &
1450 , 1.4626169256971252983787960308868356163881050162249770342103474631076960029748751959380482484308382288261238476948520e-02_RKB &
1451 , 8.6002698556429421986617879501023472521289227667077976622450602031426535362696437838448828009554532025301579670206091e-03_RKB &
1452 , 3.0735837185205315012182932460309874880335046882543449198461628212114333665590378156706265241414469306987988292234740e-03_RKB ]
1453#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1454 !DIR$ ATTRIBUTES DLLEXPORT :: weightK41
1455#endif
1456
1457!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1458
1499 end type
1500
1528 type(GK51_type) , parameter :: GK51 = GK51_type()
1529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1530 !DIR$ ATTRIBUTES DLLEXPORT :: GK51
1531#endif
1532
1552 real(RKB) , parameter :: nodeG25(13) = &
1553 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1554 , 1.2286469261071039638735981880803680553220534604978373842389353789270883496885841582643884994633105537597765980412320e-01_RKB &
1555 , 2.4386688372098843204519036279745158640563315632598447642113565325038747278585595067977636776325034060327548499765742e-01_RKB &
1556 , 3.6117230580938783773582173012764066742207834704337506979457877784674538239569654860329531506093761400789294612122812e-01_RKB &
1557 , 4.7300273144571496052218211500919204133181773846162729090723082769560327584128603010315684778279363544192787010704498e-01_RKB &
1558 , 5.7766293024122296772368984161265406739573503929151825664548350776102301275263202227671659646579649084013116066120581e-01_RKB &
1559 , 6.7356636847346836448512063324762217588341672807274931705965696177828773684928421158196368568030932194044282149314388e-01_RKB &
1560 , 7.5925926303735763057728286520436097638752201889833412091838973544501862882026240760763679724185230331463919586229073e-01_RKB &
1561 , 8.3344262876083400142102110869356956946096411382352078602086471546171813247709012525322973947759168107133491065937347e-01_RKB &
1562 , 8.9499199787827536885104200678280495417455484975358390306170168295917151090119945137118600693039178162093726882638296e-01_RKB &
1563 , 9.4297457122897433941401116965847053190520157060899014192745249713729532254404926130890521815127348327109666786665572e-01_RKB &
1564 , 9.7666392145951751149831538647959406774537055531440674467098742731616386753588055389644670948300617866819865983054648e-01_RKB &
1565 , 9.9555696979049809790878494689390161725756264940480817121080493113293348134372793448728802635294700756868258870429256e-01_RKB ]
1566#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1567 !DIR$ ATTRIBUTES DLLEXPORT :: nodeG25
1568#endif
1569
1589 real(RKB) , parameter :: weightG25(13) = &
1590 [ 1.2317605372671545120390287307905014243823362751815166539135219731691200794926142128460112517504958377310054583945994e-01_RKB &
1591 , 1.2224244299031004168895951894585150583505924756305904090758008223203896721918010243033540891078906637115620156845304e-01_RKB &
1592 , 1.1945576353578477222817812651290104739017670141372642551958788133518409022018773502442869720975271321374348568426235e-01_RKB &
1593 , 1.1485825914571164833932554586955580864093619166818014959151499003148279667112542256534429898558156273250513652351744e-01_RKB &
1594 , 1.0851962447426365311609395705011661934007758798672201615649430734883929279360844269339768350029654172135832773427565e-01_RKB &
1595 , 1.0053594906705064420220689039268582698846609452814190706986904199941294815904602968195565620373258211755226681206658e-01_RKB &
1596 , 9.1028261982963649811497220702891653380992558959334310970483768967017384678410526902484398142953718885872521590850372e-02_RKB &
1597 , 8.0140700335001018013234959669111302290225732853675893716201462973612828934801289559457377714225318048243957479325813e-02_RKB &
1598 , 6.8038333812356917207187185656707968554709494354636562615071226410003654051711473106651522969481873733098761760660898e-02_RKB &
1599 , 5.4904695975835191925936891540473324160109985553111349048508498244593774678436511895711924079433444763756746828817613e-02_RKB &
1600 , 4.0939156701306312655623487711645953660845783364104346504698414899297432880215512770478971055110424130123527015425511e-02_RKB &
1601 , 2.6354986615032137261901815295299144935963281703322468755366165783870934008879499371529821528172928890350362464605104e-02_RKB &
1602 , 1.1393798501026287947902964113234773603320526292909696448948061116189891729766743355923677112945033505688431618009664e-02_RKB ]
1603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1604 !DIR$ ATTRIBUTES DLLEXPORT :: weightG25
1605#endif
1606
1626 real(RKB) , parameter :: nodeK51(26) = &
1627 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1628 , 6.1544483005685078886546392366796631281724348039823545274305431751687279361558658545141048781022691067898008423227288e-02_RKB &
1629 , 1.2286469261071039638735981880803680553220534604978373842389353789270883496885841582643884994633105537597765980412320e-01_RKB &
1630 , 1.8371893942104889201596988875952841578528447834990555215034512653236752851109815617651867160645591242103823539931527e-01_RKB &
1631 , 2.4386688372098843204519036279745158640563315632598447642113565325038747278585595067977636776325034060327548499765742e-01_RKB &
1632 , 3.0308953893110783016747890998033932920041937876655194685731578452573120372337209717349617882111662416355753711853559e-01_RKB &
1633 , 3.6117230580938783773582173012764066742207834704337506979457877784674538239569654860329531506093761400789294612122812e-01_RKB &
1634 , 4.1788538219303774885181439459457248709336998140069528034955785068796932076966599548717224205109797297615032607570119e-01_RKB &
1635 , 4.7300273144571496052218211500919204133181773846162729090723082769560327584128603010315684778279363544192787010704498e-01_RKB &
1636 , 5.2632528433471918259962377815801017803683252320191114313002425180471455022502695302371008520604638341970901082293650e-01_RKB &
1637 , 5.7766293024122296772368984161265406739573503929151825664548350776102301275263202227671659646579649084013116066120581e-01_RKB &
1638 , 6.2681009901031741278812268162451788101954628995068510806525222008437260184181183053045236423845198752346149030569920e-01_RKB &
1639 , 6.7356636847346836448512063324762217588341672807274931705965696177828773684928421158196368568030932194044282149314388e-01_RKB &
1640 , 7.1776640681308438818665407977329778059771167555515582423493486823991612820974965089522905953765860328116692570706602e-01_RKB &
1641 , 7.5925926303735763057728286520436097638752201889833412091838973544501862882026240760763679724185230331463919586229073e-01_RKB &
1642 , 7.9787379799850005941041090499430656940863230009338267661706934499488650817643824077118950314443984031474353711531825e-01_RKB &
1643 , 8.3344262876083400142102110869356956946096411382352078602086471546171813247709012525322973947759168107133491065937347e-01_RKB &
1644 , 8.6584706529327559544899696958834008820284409402823690293965213246691432948180280120756708738064779055576005302835351e-01_RKB &
1645 , 8.9499199787827536885104200678280495417455484975358390306170168295917151090119945137118600693039178162093726882638296e-01_RKB &
1646 , 9.2074711528170156174634608454633063157457035996277199700642836501131385042631212407808952281702820179915510491592339e-01_RKB &
1647 , 9.4297457122897433941401116965847053190520157060899014192745249713729532254404926130890521815127348327109666786665572e-01_RKB &
1648 , 9.6161498642584251241813003366016724169212642963709676666624520141292893281185666917636407790823210892689040877316178e-01_RKB &
1649 , 9.7666392145951751149831538647959406774537055531440674467098742731616386753588055389644670948300617866819865983054648e-01_RKB &
1650 , 9.8803579453407724763733101457740622707248415209160748131449972199405186821347293686245404742032360498210710718706868e-01_RKB &
1651 , 9.9555696979049809790878494689390161725756264940480817121080493113293348134372793448728802635294700756868258870429256e-01_RKB &
1652 , 9.9926210499260983419345748654034059370452496042279618586228697762904524428167719073818746102238075978747461480736921e-01_RKB ]
1653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1654 !DIR$ ATTRIBUTES DLLEXPORT :: nodeK51
1655#endif
1656
1676 real(RKB) , parameter :: weightK51(26) = &
1677 [ 6.1580818067832935078759824240064553190436936903140808056908996403358367244202623293256774502185186717703954810463664e-02_RKB &
1678 , 6.1471189871425316661544131965264177586537962876885022711111683500151700796198726558483367566537422877227096643444043e-02_RKB &
1679 , 6.1128509717053048305859030416292711922678552321960938357322028070390133769952032831204895569347757809858568165047769e-02_RKB &
1680 , 6.0539455376045862945360267517565427162312365710457079923487043144554747810689514408013582515489930908693681447570811e-02_RKB &
1681 , 5.9720340324174059979099291932561853835363045476189975483372207816149988460708299020779612375010639778624011960832019e-02_RKB &
1682 , 5.8689680022394207961974175856787764139795646254828315293243700305012569486054157617049685031506591863121580010947248e-02_RKB &
1683 , 5.7437116361567832853582693939506471994832856823896682976509412313367495727224381199978598247737089593472710899482737e-02_RKB &
1684 , 5.5950811220412317308240686382747346820271035112771802428932791066115158268338607019365831655460314732208940609352540e-02_RKB &
1685 , 5.4251129888545490144543370459875606826076838441263383072163293312936923476650934130242315028422047795830492882862973e-02_RKB &
1686 , 5.2362885806407475864366712137872714887351550723707596350905793656046659248541276597504566497990926306481919129870507e-02_RKB &
1687 , 5.0277679080715671963325259433440084440587630604775975142050968279743014641141402310302584542633557037153607386127936e-02_RKB &
1688 , 4.7982537138836713906392255756914754983592207423271169651235865196757913880334117810235517477328110033499422471098658e-02_RKB &
1689 , 4.5502913049921788909870584752660393043707768935695327316724254392794299567957035458208970599641697203261236226745020e-02_RKB &
1690 , 4.2872845020170049476895792439495161101999504199883328877919242515738957655253932048951366960802592343905647433925806e-02_RKB &
1691 , 4.0083825504032382074839284467075646401410549266591308713115878386835777315058451955614116158949614066927183232852042e-02_RKB &
1692 , 3.7116271483415543560330625367619875995997802688047764805628702762773009669395760582294525748583875707140577080663373e-02_RKB &
1693 , 3.4002130274329337836748795229551203225670528250050443083264193121524339063344855010257660547708022429300203676502386e-02_RKB &
1694 , 3.0792300167387488891109020215228585600877162393292487644544830559965388047996492709248618249084851477787538356572832e-02_RKB &
1695 , 2.7475317587851737802948455517811078614796013288710603199613621069727810352835469926107822047433566792405123805901196e-02_RKB &
1696 , 2.4009945606953216220092489164881081392931528209659330290734972342536012282191913069778658241972047765300060007037359e-02_RKB &
1697 , 2.0435371145882835456568292235938973678758006097668937220074531550163622566841885855957623103354443247806459277197725e-02_RKB &
1698 , 1.6847817709128298231516667536336315840402654624706139411175769276842182270078960078544597372646532637619276509222462e-02_RKB &
1699 , 1.3236229195571674813656405846976238077578084997863654732213860488560614587634395544002156258192582265590155862296710e-02_RKB &
1700 , 9.4739733861741516072077105236553238716453268483726334971394029603529306140359023187904705754719643032594360138998941e-03_RKB &
1701 , 5.5619321353567137580402369010655220701769295496290984052961210793810038857581724171021610100708799763006942755331129e-03_RKB &
1702 , 1.9873838923303159265078518828434098894299804282505973837653346298985629336820118753523093675303476883723992297810124e-03_RKB ]
1703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1704 !DIR$ ATTRIBUTES DLLEXPORT :: weightK51
1705#endif
1706
1707!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1708
1749 end type
1750
1778 type(GK61_type) , parameter :: GK61 = GK61_type()
1779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1780 !DIR$ ATTRIBUTES DLLEXPORT :: GK61
1781#endif
1782
1802 real(RKB) , parameter :: nodeG30(15) = &
1803 [ 5.1471842555317695833025213166722573749141453666569564255160843987964755210427109055870090707285485841217089963590678e-02_RKB &
1804 , 1.5386991360858354696379467274325592041855197124433846171896298291578714851081610139692310651074078557990111754952062e-01_RKB &
1805 , 2.5463692616788984643980512981780510788278930330251842616428597508896353156907880290636628138423620257595521678255758e-01_RKB &
1806 , 3.5270472553087811347103720708937386065363100802142562659418446890026941623319107866436039675211352945165817827083104e-01_RKB &
1807 , 4.4703376953808917678060990032285400016240759386142440975447738172761535172858420700400688872124189834257262048739699e-01_RKB &
1808 , 5.3662414814201989926416979331107279416417800693029710545274348291201490861897837863114116009718990258091585830703557e-01_RKB &
1809 , 6.2052618298924286114047755643118929920736469282952813259505117012433531497488911774115258445532782106478789996137481e-01_RKB &
1810 , 6.9785049479331579693229238802664006838235380065395465637972284673997672124315996069538163644008904690545069439941341e-01_RKB &
1811 , 7.6777743210482619491797734097450313169488361723290845320649438736515857017299504505260960258623968420224697596501719e-01_RKB &
1812 , 8.2956576238276839744289811973250191643906869617034167880695298345365650658958163508295244350814016004371545455777732e-01_RKB &
1813 , 8.8256053579205268154311646253022559005668914714648423206832605312161626269519165572921583828573210485349058106849548e-01_RKB &
1814 , 9.2620004742927432587932427708047400408647453682532906091103713367942299565110232681677288015055886244486106298320068e-01_RKB &
1815 , 9.6002186496830751221687102558179766293035921740392339948566167242493995770706842922718944370380002378239172677454384e-01_RKB &
1816 , 9.8366812327974720997003258160566280194031785470971136351718001015114429536479104370207597166035471368057762560137209e-01_RKB &
1817 , 9.9689348407464954027163005091869528334088203811775079010809429780238769521016374081588201955806171741257405095963817e-01_RKB ]
1818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1819 !DIR$ ATTRIBUTES DLLEXPORT :: nodeG30
1820#endif
1821
1841 real(RKB) , parameter :: weightG30(15) = &
1842 [ 1.0285265289355884034128563670541504386837555706492822258631898667601623865660942939262884632188870916503815852709086e-01_RKB &
1843 , 1.0176238974840550459642895216855404463270628948712684086426094541964251360531767494547599781978391198881693385887696e-01_RKB &
1844 , 9.9593420586795267062780282103569476529869263666704277221365146183946660389908809018092299289324184705373523229592037e-02_RKB &
1845 , 9.6368737174644259639468626351809865096406461430160245912994275732837534742003123724951247818104195363343093583583429e-02_RKB &
1846 , 9.2122522237786128717632707087618767196913234418234107527675047001973047070094168298464052916811907158954949394100501e-02_RKB &
1847 , 8.6899787201082979802387530715125702576753328743545344012222129882153582254261494247955033509639105330215477601953921e-02_RKB &
1848 , 8.0755895229420215354694938460529730875892803708439299890258593706051180567026345604212402769217808080749416147400962e-02_RKB &
1849 , 7.3755974737705206268243850022190734153770526037049438941269182374599399314635211710401352716638183270192254236882630e-02_RKB &
1850 , 6.5974229882180495128128515115962361237442953656660378967031516042143672466094179365819913911598737439478205808271237e-02_RKB &
1851 , 5.7493156217619066481721689402056128797120670721763134548715799003232147409954376925211999650950125355559974348279846e-02_RKB &
1852 , 4.8402672830594052902938140422807517815271809197372736345191936791805425677102152797767439563562263454374645955072007e-02_RKB &
1853 , 3.8799192569627049596801936446347692033200976766395352107732789705946970952769793919055026279035105656340228558382274e-02_RKB &
1854 , 2.8784707883323369349719179611292043639588894546287496474180122608145988940013933101730206711484171554940392262251283e-02_RKB &
1855 , 1.8466468311090959142302131912047269096206533968181403371298365514585599521307973654080519029675417955638095832046164e-02_RKB &
1856 , 7.9681924961666056154658834746736224504806965871517212294851633569200384329013332941536616922861735209846506562158817e-03_RKB ]
1857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1858 !DIR$ ATTRIBUTES DLLEXPORT :: weightG30
1859#endif
1860
1880 real(RKB) , parameter :: nodeK61(31) = &
1881 [ 0.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000e+00_RKB &
1882 , 5.1471842555317695833025213166722573749141453666569564255160843987964755210427109055870090707285485841217089963590678e-02_RKB &
1883 , 1.0280693796673703014709675131800059247190133296515840552101946914632788253917872738234797140786490207720254922664913e-01_RKB &
1884 , 1.5386991360858354696379467274325592041855197124433846171896298291578714851081610139692310651074078557990111754952062e-01_RKB &
1885 , 2.0452511668230989143895767100202470952410426459556377447604465028350321894663245495592565235317147819577892124850607e-01_RKB &
1886 , 2.5463692616788984643980512981780510788278930330251842616428597508896353156907880290636628138423620257595521678255758e-01_RKB &
1887 , 3.0407320227362507737267710719925655353115778980946272844421536998312150442387767304001423699909778588529370119457430e-01_RKB &
1888 , 3.5270472553087811347103720708937386065363100802142562659418446890026941623319107866436039675211352945165817827083104e-01_RKB &
1889 , 4.0040125483039439253547621154266063361104593297078395983186610656429170689311759061175527015710247383961903284673474e-01_RKB &
1890 , 4.4703376953808917678060990032285400016240759386142440975447738172761535172858420700400688872124189834257262048739699e-01_RKB &
1891 , 4.9248046786177857499369306120770879564426564096318697026073340982988422546396352776837047452262025983265531109327026e-01_RKB &
1892 , 5.3662414814201989926416979331107279416417800693029710545274348291201490861897837863114116009718990258091585830703557e-01_RKB &
1893 , 5.7934523582636169175602493217254049590705158881215289208126016612312833567812241903809970751783808208940322061083509e-01_RKB &
1894 , 6.2052618298924286114047755643118929920736469282952813259505117012433531497488911774115258445532782106478789996137481e-01_RKB &
1895 , 6.6006106412662696137005366814927075303835037480883390955067197339904937499734522076788020517029688190998858739703079e-01_RKB &
1896 , 6.9785049479331579693229238802664006838235380065395465637972284673997672124315996069538163644008904690545069439941341e-01_RKB &
1897 , 7.3379006245322680472617113136952764566938172775468549208701399518300016463613325382024664531597318795933262446521430e-01_RKB &
1898 , 7.6777743210482619491797734097450313169488361723290845320649438736515857017299504505260960258623968420224697596501719e-01_RKB &
1899 , 7.9972783582183908301366894232268324073569842937778450923647349548686662567326007229195202524185356472023967927713548e-01_RKB &
1900 , 8.2956576238276839744289811973250191643906869617034167880695298345365650658958163508295244350814016004371545455777732e-01_RKB &
1901 , 8.5720523354606109895865851065894385682080017062359612850504551739119887225712932688031120704657195642614071367390794e-01_RKB &
1902 , 8.8256053579205268154311646253022559005668914714648423206832605312161626269519165572921583828573210485349058106849548e-01_RKB &
1903 , 9.0557330769990779854652255892595831956897536366222841356404766397803760239449631913585074426842574155323901785046522e-01_RKB &
1904 , 9.2620004742927432587932427708047400408647453682532906091103713367942299565110232681677288015055886244486106298320068e-01_RKB &
1905 , 9.4437444474855997941583132403743912158564371496498093181748940139520917000657342753448871376849848523800667868447591e-01_RKB &
1906 , 9.6002186496830751221687102558179766293035921740392339948566167242493995770706842922718944370380002378239172677454384e-01_RKB &
1907 , 9.7311632250112626837469386842370688488763796428343933853755850185624118958166838288308561708261486365954975485787212e-01_RKB &
1908 , 9.8366812327974720997003258160566280194031785470971136351718001015114429536479104370207597166035471368057762560137209e-01_RKB &
1909 , 9.9163099687040459485862836610948572485050033374616325510019923349807489603260796605556191495843575227494654783755353e-01_RKB &
1910 , 9.9689348407464954027163005091869528334088203811775079010809429780238769521016374081588201955806171741257405095963817e-01_RKB &
1911 , 9.9948441005049063757132589570581081946887394701850801923632642830748016674843587830656468823145435723317885056396548e-01_RKB ]
1912#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1913 !DIR$ ATTRIBUTES DLLEXPORT :: nodeK61
1914#endif
1915
1935 real(RKB) , parameter :: weightK61(31) = &
1936 [ 5.1494729429451567558340433647099307532736880396464168074637323362474083844397567724480716864880173808112573901197920e-02_RKB &
1937 , 5.1426128537459025933862879215781259829552034862395987263855824172761589259406892072066110681184224608133314131500422e-02_RKB &
1938 , 5.1221547849258772170656282604944208251146952425246327553509056805511015401279553971190412722969308620984161625812560e-02_RKB &
1939 , 5.0881795898749606492297473049804691853384914260919239920771942080972542646780575571132056254070929858650733836163479e-02_RKB &
1940 , 5.0405921402782346840893085653585028902197018251622233664243959211066713308635283713447747907973700791599900911248852e-02_RKB &
1941 , 4.9795683427074206357811569379942328539209602813696108951047392842948482646220377655098341924089250200477846596263918e-02_RKB &
1942 , 4.9055434555029778887528165367238173605887405295296569579490717901328215644590555247522873065246297467067324397612445e-02_RKB &
1943 , 4.8185861757087129140779492298304592605799236108429800057373350872433793583969368428942672063270298939865425225579922e-02_RKB &
1944 , 4.7185546569299153945261478181099486482884807300628457194141861551725533289490897029020276525603515502104799540544222e-02_RKB &
1945 , 4.6059238271006988116271735559373580594692875571824924004732379492293604006446052672252973438978639166425766841417488e-02_RKB &
1946 , 4.4814800133162663192355551616723243757431392796373009889680201194063503947907899189061064792111919040540351834527742e-02_RKB &
1947 , 4.3452539701356069316831728117073258074603308631703168064888805495738640839573863333942084117196541456054957383622173e-02_RKB &
1948 , 4.1969810215164246147147541285969757790088656718992374820388720323852655511200365790379948462006156953358103259681948e-02_RKB &
1949 , 4.0374538951535959111995279752468114216126062126030255633998289613810846761059740961836828802959573901107306640876603e-02_RKB &
1950 , 3.8678945624727592950348651532281050250923629821553846790376130679337402056620700554139109487533759557982632153728099e-02_RKB &
1951 , 3.6882364651821229223911065617135967736955164781030337670005198584196134970154169862584193360751243227989492571664973e-02_RKB &
1952 , 3.4979338028060024137499670731467875097226912794818719972208457232177786702008744219498470603846784465175225933802357e-02_RKB &
1953 , 3.2981447057483726031814191016853927510599291213858385714519347641452316582381008804994515341969205985818543200837577e-02_RKB &
1954 , 3.0907257562387762472884252943092272635270458523807153426840486964022086189874056947717446328187131273807982629114591e-02_RKB &
1955 , 2.8754048765041292843978785354334211144679160542074930035102280759132174815469834227854660515366003136772757344886331e-02_RKB &
1956 , 2.6509954882333101610601709335075414366517579522748565770867438338472138903658077617652522759934474895733739329287706e-02_RKB &
1957 , 2.4191162078080601365686370725232026760391377828182462432228943562944885267501070688006470962871743661192935455117297e-02_RKB &
1958 , 2.1828035821609192297167485738338993401507296056834912773630422358720439403382559079356058602393879803560534375378340e-02_RKB &
1959 , 1.9414141193942381173408951050128455851421014191431525770276066536497179079025540486072726114628763606440143557769099e-02_RKB &
1960 , 1.6920889189053272627572289420322092368566703783835191139883410840546679978551861043620089451681146020853650713611444e-02_RKB &
1961 , 1.4369729507045804812451432443580010195841899895001505873565899403000198662495821906144274682894222591414503342336172e-02_RKB &
1962 , 1.1823015253496341742232898853250592896264406250607818326302431548265365155855182739401700032519141448997853772603766e-02_RKB &
1963 , 9.2732796595177634284411468920243604212700249381931076964956469143626665557434385492325784596343112153704094886248672e-03_RKB &
1964 , 6.6307039159312921733198263697501681336283882177812585973955597357837568277731921327731815844512598157843672104469554e-03_RKB &
1965 , 3.8904611270998840512672018445155032785151429848864649214200101281144733676455451061226273655941038347210163533085954e-03_RKB &
1966 , 1.3890136986770076245515912267596996810488412919632724534411055332301367130989865366956251556423820479579333920310978e-03_RKB ]
1967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1968 !DIR$ ATTRIBUTES DLLEXPORT :: weightK61
1969#endif
1970
1971!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1972
2037
2038 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2039
2040#if RK5_ENABLED
2041 PURE module subroutine setNodeWeightGKFixed_RK5(nodeK, weightK, weightG)
2042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2043 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK5
2044#endif
2045 use pm_kind, only: RKC => RK5
2046 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2047 end subroutine
2048#endif
2049
2050#if RK4_ENABLED
2051 PURE module subroutine setNodeWeightGKFixed_RK4(nodeK, weightK, weightG)
2052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2053 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK4
2054#endif
2055 use pm_kind, only: RKC => RK4
2056 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2057 end subroutine
2058#endif
2059
2060#if RK3_ENABLED
2061 PURE module subroutine setNodeWeightGKFixed_RK3(nodeK, weightK, weightG)
2062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2063 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK3
2064#endif
2065 use pm_kind, only: RKC => RK3
2066 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2067 end subroutine
2068#endif
2069
2070#if RK2_ENABLED
2071 PURE module subroutine setNodeWeightGKFixed_RK2(nodeK, weightK, weightG)
2072#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2073 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK2
2074#endif
2075 use pm_kind, only: RKC => RK2
2076 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2077 end subroutine
2078#endif
2079
2080#if RK1_ENABLED
2081 PURE module subroutine setNodeWeightGKFixed_RK1(nodeK, weightK, weightG)
2082#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2083 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKFixed_RK1
2084#endif
2085 use pm_kind, only: RKC => RK1
2086 real(RKC) , intent(out) , contiguous :: nodeK(:), weightG(:), weightK(:)
2087 end subroutine
2088#endif
2089
2090 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2091
2092#if RK5_ENABLED
2093 PURE module subroutine setNodeWeightGKAlloc_RK5(order, nodeK, weightK, weightG)
2094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2095 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK5
2096#endif
2097 use pm_kind, only: RKC => RK5
2098 integer(IK) , intent(in) :: order
2099 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2100 end subroutine
2101#endif
2102
2103#if RK4_ENABLED
2104 PURE module subroutine setNodeWeightGKAlloc_RK4(order, nodeK, weightK, weightG)
2105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2106 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK4
2107#endif
2108 use pm_kind, only: RKC => RK4
2109 integer(IK) , intent(in) :: order
2110 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2111 end subroutine
2112#endif
2113
2114#if RK3_ENABLED
2115 PURE module subroutine setNodeWeightGKAlloc_RK3(order, nodeK, weightK, weightG)
2116#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2117 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK3
2118#endif
2119 use pm_kind, only: RKC => RK3
2120 integer(IK) , intent(in) :: order
2121 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2122 end subroutine
2123#endif
2124
2125#if RK2_ENABLED
2126 PURE module subroutine setNodeWeightGKAlloc_RK2(order, nodeK, weightK, weightG)
2127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2128 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK2
2129#endif
2130 use pm_kind, only: RKC => RK2
2131 integer(IK) , intent(in) :: order
2132 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2133 end subroutine
2134#endif
2135
2136#if RK1_ENABLED
2137 PURE module subroutine setNodeWeightGKAlloc_RK1(order, nodeK, weightK, weightG)
2138#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2139 !DEC$ ATTRIBUTES DLLEXPORT :: setNodeWeightGKAlloc_RK1
2140#endif
2141 use pm_kind, only: RKC => RK1
2142 integer(IK) , intent(in) :: order
2143 real(RKC) , intent(out) , allocatable :: nodeK(:), weightG(:), weightK(:)
2144 end subroutine
2145#endif
2146
2147 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2148
2149 end interface
2150
2151!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2152
2153 ! Naming convention: getQuadGKDFU, getQuadGKDPU, getQuadGKDNU, getQuadGKDBU
2154 ! G: Gauss rule,
2155 ! K: Kronrod rule,
2156 ! D: default method,
2157 ! F: finite integration limits,
2158 ! P: Positive integration limit,
2159 ! N: Negative integration limit,
2160 ! B: Both negative and positive integration limits,
2161
2269
2270 ! GK15
2271
2272 interface getQuadGK
2273
2274 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2275
2276#if RK5_ENABLED
2277 module function getQuadGK15_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2279 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK5
2280#endif
2281 use pm_kind, only: RKC => RK5
2282 procedure(real(RKC)) :: getFunc
2283 real(RKC) , intent(in) :: lb
2284 real(RKC) , intent(in) :: ub
2285 type(GK15_type) , intent(in) :: qrule
2286 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2287 real(RKC) :: quadGK
2288 end function
2289#endif
2290
2291#if RK4_ENABLED
2292 module function getQuadGK15_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2294 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK4
2295#endif
2296 use pm_kind, only: RKC => RK4
2297 procedure(real(RKC)) :: getFunc
2298 real(RKC) , intent(in) :: lb
2299 real(RKC) , intent(in) :: ub
2300 type(GK15_type) , intent(in) :: qrule
2301 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2302 real(RKC) :: quadGK
2303 end function
2304#endif
2305
2306#if RK3_ENABLED
2307 module function getQuadGK15_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2309 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK3
2310#endif
2311 use pm_kind, only: RKC => RK3
2312 procedure(real(RKC)) :: getFunc
2313 real(RKC) , intent(in) :: lb
2314 real(RKC) , intent(in) :: ub
2315 type(GK15_type) , intent(in) :: qrule
2316 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2317 real(RKC) :: quadGK
2318 end function
2319#endif
2320
2321#if RK2_ENABLED
2322 module function getQuadGK15_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2323#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2324 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK2
2325#endif
2326 use pm_kind, only: RKC => RK2
2327 procedure(real(RKC)) :: getFunc
2328 real(RKC) , intent(in) :: lb
2329 real(RKC) , intent(in) :: ub
2330 type(GK15_type) , intent(in) :: qrule
2331 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2332 real(RKC) :: quadGK
2333 end function
2334#endif
2335
2336#if RK1_ENABLED
2337 module function getQuadGK15_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2338#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2339 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FF_RK1
2340#endif
2341 use pm_kind, only: RKC => RK1
2342 procedure(real(RKC)) :: getFunc
2343 real(RKC) , intent(in) :: lb
2344 real(RKC) , intent(in) :: ub
2345 type(GK15_type) , intent(in) :: qrule
2346 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2347 real(RKC) :: quadGK
2348 end function
2349#endif
2350
2351 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2352
2353#if RK5_ENABLED
2354 module function getQuadGK15_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2356 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK5
2357#endif
2358 use pm_kind, only: RKC => RK5
2359 procedure(real(RKC)) :: getFunc
2360 real(RKC) , intent(in) :: lb
2361 type(pinf_type) , intent(in) :: ub
2362 type(GK15_type) , intent(in) :: qrule
2363 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2364 real(RKC) :: quadGK
2365 end function
2366#endif
2367
2368#if RK4_ENABLED
2369 module function getQuadGK15_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2371 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK4
2372#endif
2373 use pm_kind, only: RKC => RK4
2374 procedure(real(RKC)) :: getFunc
2375 real(RKC) , intent(in) :: lb
2376 type(pinf_type) , intent(in) :: ub
2377 type(GK15_type) , intent(in) :: qrule
2378 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2379 real(RKC) :: quadGK
2380 end function
2381#endif
2382
2383#if RK3_ENABLED
2384 module function getQuadGK15_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2386 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK3
2387#endif
2388 use pm_kind, only: RKC => RK3
2389 procedure(real(RKC)) :: getFunc
2390 real(RKC) , intent(in) :: lb
2391 type(pinf_type) , intent(in) :: ub
2392 type(GK15_type) , intent(in) :: qrule
2393 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2394 real(RKC) :: quadGK
2395 end function
2396#endif
2397
2398#if RK2_ENABLED
2399 module function getQuadGK15_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2401 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK2
2402#endif
2403 use pm_kind, only: RKC => RK2
2404 procedure(real(RKC)) :: getFunc
2405 real(RKC) , intent(in) :: lb
2406 type(pinf_type) , intent(in) :: ub
2407 type(GK15_type) , intent(in) :: qrule
2408 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2409 real(RKC) :: quadGK
2410 end function
2411#endif
2412
2413#if RK1_ENABLED
2414 module function getQuadGK15_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2416 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_FI_RK1
2417#endif
2418 use pm_kind, only: RKC => RK1
2419 procedure(real(RKC)) :: getFunc
2420 real(RKC) , intent(in) :: lb
2421 type(pinf_type) , intent(in) :: ub
2422 type(GK15_type) , intent(in) :: qrule
2423 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2424 real(RKC) :: quadGK
2425 end function
2426#endif
2427
2428 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2429
2430#if RK5_ENABLED
2431 module function getQuadGK15_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2433 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK5
2434#endif
2435 use pm_kind, only: RKC => RK5
2436 procedure(real(RKC)) :: getFunc
2437 type(ninf_type) , intent(in) :: lb
2438 real(RKC) , intent(in) :: ub
2439 type(GK15_type) , intent(in) :: qrule
2440 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2441 real(RKC) :: quadGK
2442 end function
2443#endif
2444
2445#if RK4_ENABLED
2446 module function getQuadGK15_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2448 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK4
2449#endif
2450 use pm_kind, only: RKC => RK4
2451 procedure(real(RKC)) :: getFunc
2452 type(ninf_type) , intent(in) :: lb
2453 real(RKC) , intent(in) :: ub
2454 type(GK15_type) , intent(in) :: qrule
2455 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2456 real(RKC) :: quadGK
2457 end function
2458#endif
2459
2460#if RK3_ENABLED
2461 module function getQuadGK15_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2462#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2463 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK3
2464#endif
2465 use pm_kind, only: RKC => RK3
2466 procedure(real(RKC)) :: getFunc
2467 type(ninf_type) , intent(in) :: lb
2468 real(RKC) , intent(in) :: ub
2469 type(GK15_type) , intent(in) :: qrule
2470 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2471 real(RKC) :: quadGK
2472 end function
2473#endif
2474
2475#if RK2_ENABLED
2476 module function getQuadGK15_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2478 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK2
2479#endif
2480 use pm_kind, only: RKC => RK2
2481 procedure(real(RKC)) :: getFunc
2482 type(ninf_type) , intent(in) :: lb
2483 real(RKC) , intent(in) :: ub
2484 type(GK15_type) , intent(in) :: qrule
2485 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2486 real(RKC) :: quadGK
2487 end function
2488#endif
2489
2490#if RK1_ENABLED
2491 module function getQuadGK15_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2493 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_IF_RK1
2494#endif
2495 use pm_kind, only: RKC => RK1
2496 procedure(real(RKC)) :: getFunc
2497 type(ninf_type) , intent(in) :: lb
2498 real(RKC) , intent(in) :: ub
2499 type(GK15_type) , intent(in) :: qrule
2500 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2501 real(RKC) :: quadGK
2502 end function
2503#endif
2504
2505 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2506
2507#if RK5_ENABLED
2508 module function getQuadGK15_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2510 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK5
2511#endif
2512 use pm_kind, only: RKC => RK5
2513 procedure(real(RKC)) :: getFunc
2514 type(ninf_type) , intent(in) :: lb
2515 type(pinf_type) , intent(in) :: ub
2516 type(GK15_type) , intent(in) :: qrule
2517 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2518 real(RKC) :: quadGK
2519 end function
2520#endif
2521
2522#if RK4_ENABLED
2523 module function getQuadGK15_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2524#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2525 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK4
2526#endif
2527 use pm_kind, only: RKC => RK4
2528 procedure(real(RKC)) :: getFunc
2529 type(ninf_type) , intent(in) :: lb
2530 type(pinf_type) , intent(in) :: ub
2531 type(GK15_type) , intent(in) :: qrule
2532 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2533 real(RKC) :: quadGK
2534 end function
2535#endif
2536
2537#if RK3_ENABLED
2538 module function getQuadGK15_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2540 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK3
2541#endif
2542 use pm_kind, only: RKC => RK3
2543 procedure(real(RKC)) :: getFunc
2544 type(ninf_type) , intent(in) :: lb
2545 type(pinf_type) , intent(in) :: ub
2546 type(GK15_type) , intent(in) :: qrule
2547 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2548 real(RKC) :: quadGK
2549 end function
2550#endif
2551
2552#if RK2_ENABLED
2553 module function getQuadGK15_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2554#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2555 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK2
2556#endif
2557 use pm_kind, only: RKC => RK2
2558 procedure(real(RKC)) :: getFunc
2559 type(ninf_type) , intent(in) :: lb
2560 type(pinf_type) , intent(in) :: ub
2561 type(GK15_type) , intent(in) :: qrule
2562 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2563 real(RKC) :: quadGK
2564 end function
2565#endif
2566
2567#if RK1_ENABLED
2568 module function getQuadGK15_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2570 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK15_II_RK1
2571#endif
2572 use pm_kind, only: RKC => RK1
2573 procedure(real(RKC)) :: getFunc
2574 type(ninf_type) , intent(in) :: lb
2575 type(pinf_type) , intent(in) :: ub
2576 type(GK15_type) , intent(in) :: qrule
2577 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2578 real(RKC) :: quadGK
2579 end function
2580#endif
2581
2582 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2583
2584 end interface
2585
2586 ! GK21
2587
2588 interface getQuadGK
2589
2590 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2591
2592#if RK5_ENABLED
2593 module function getQuadGK21_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2595 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK5
2596#endif
2597 use pm_kind, only: RKC => RK5
2598 procedure(real(RKC)) :: getFunc
2599 real(RKC) , intent(in) :: lb
2600 real(RKC) , intent(in) :: ub
2601 type(GK21_type) , intent(in) :: qrule
2602 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2603 real(RKC) :: quadGK
2604 end function
2605#endif
2606
2607#if RK4_ENABLED
2608 module function getQuadGK21_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2610 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK4
2611#endif
2612 use pm_kind, only: RKC => RK4
2613 procedure(real(RKC)) :: getFunc
2614 real(RKC) , intent(in) :: lb
2615 real(RKC) , intent(in) :: ub
2616 type(GK21_type) , intent(in) :: qrule
2617 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2618 real(RKC) :: quadGK
2619 end function
2620#endif
2621
2622#if RK3_ENABLED
2623 module function getQuadGK21_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2625 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK3
2626#endif
2627 use pm_kind, only: RKC => RK3
2628 procedure(real(RKC)) :: getFunc
2629 real(RKC) , intent(in) :: lb
2630 real(RKC) , intent(in) :: ub
2631 type(GK21_type) , intent(in) :: qrule
2632 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2633 real(RKC) :: quadGK
2634 end function
2635#endif
2636
2637#if RK2_ENABLED
2638 module function getQuadGK21_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2640 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK2
2641#endif
2642 use pm_kind, only: RKC => RK2
2643 procedure(real(RKC)) :: getFunc
2644 real(RKC) , intent(in) :: lb
2645 real(RKC) , intent(in) :: ub
2646 type(GK21_type) , intent(in) :: qrule
2647 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2648 real(RKC) :: quadGK
2649 end function
2650#endif
2651
2652#if RK1_ENABLED
2653 module function getQuadGK21_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2654#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2655 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FF_RK1
2656#endif
2657 use pm_kind, only: RKC => RK1
2658 procedure(real(RKC)) :: getFunc
2659 real(RKC) , intent(in) :: lb
2660 real(RKC) , intent(in) :: ub
2661 type(GK21_type) , intent(in) :: qrule
2662 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2663 real(RKC) :: quadGK
2664 end function
2665#endif
2666
2667 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2668
2669#if RK5_ENABLED
2670 module function getQuadGK21_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2672 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK5
2673#endif
2674 use pm_kind, only: RKC => RK5
2675 procedure(real(RKC)) :: getFunc
2676 real(RKC) , intent(in) :: lb
2677 type(pinf_type) , intent(in) :: ub
2678 type(GK21_type) , intent(in) :: qrule
2679 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2680 real(RKC) :: quadGK
2681 end function
2682#endif
2683
2684#if RK4_ENABLED
2685 module function getQuadGK21_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2687 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK4
2688#endif
2689 use pm_kind, only: RKC => RK4
2690 procedure(real(RKC)) :: getFunc
2691 real(RKC) , intent(in) :: lb
2692 type(pinf_type) , intent(in) :: ub
2693 type(GK21_type) , intent(in) :: qrule
2694 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2695 real(RKC) :: quadGK
2696 end function
2697#endif
2698
2699#if RK3_ENABLED
2700 module function getQuadGK21_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2702 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK3
2703#endif
2704 use pm_kind, only: RKC => RK3
2705 procedure(real(RKC)) :: getFunc
2706 real(RKC) , intent(in) :: lb
2707 type(pinf_type) , intent(in) :: ub
2708 type(GK21_type) , intent(in) :: qrule
2709 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2710 real(RKC) :: quadGK
2711 end function
2712#endif
2713
2714#if RK2_ENABLED
2715 module function getQuadGK21_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2716#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2717 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK2
2718#endif
2719 use pm_kind, only: RKC => RK2
2720 procedure(real(RKC)) :: getFunc
2721 real(RKC) , intent(in) :: lb
2722 type(pinf_type) , intent(in) :: ub
2723 type(GK21_type) , intent(in) :: qrule
2724 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2725 real(RKC) :: quadGK
2726 end function
2727#endif
2728
2729#if RK1_ENABLED
2730 module function getQuadGK21_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2732 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_FI_RK1
2733#endif
2734 use pm_kind, only: RKC => RK1
2735 procedure(real(RKC)) :: getFunc
2736 real(RKC) , intent(in) :: lb
2737 type(pinf_type) , intent(in) :: ub
2738 type(GK21_type) , intent(in) :: qrule
2739 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2740 real(RKC) :: quadGK
2741 end function
2742#endif
2743
2744 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2745
2746#if RK5_ENABLED
2747 module function getQuadGK21_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2748#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2749 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK5
2750#endif
2751 use pm_kind, only: RKC => RK5
2752 procedure(real(RKC)) :: getFunc
2753 type(ninf_type) , intent(in) :: lb
2754 real(RKC) , intent(in) :: ub
2755 type(GK21_type) , intent(in) :: qrule
2756 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2757 real(RKC) :: quadGK
2758 end function
2759#endif
2760
2761#if RK4_ENABLED
2762 module function getQuadGK21_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2764 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK4
2765#endif
2766 use pm_kind, only: RKC => RK4
2767 procedure(real(RKC)) :: getFunc
2768 type(ninf_type) , intent(in) :: lb
2769 real(RKC) , intent(in) :: ub
2770 type(GK21_type) , intent(in) :: qrule
2771 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2772 real(RKC) :: quadGK
2773 end function
2774#endif
2775
2776#if RK3_ENABLED
2777 module function getQuadGK21_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2778#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2779 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK3
2780#endif
2781 use pm_kind, only: RKC => RK3
2782 procedure(real(RKC)) :: getFunc
2783 type(ninf_type) , intent(in) :: lb
2784 real(RKC) , intent(in) :: ub
2785 type(GK21_type) , intent(in) :: qrule
2786 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2787 real(RKC) :: quadGK
2788 end function
2789#endif
2790
2791#if RK2_ENABLED
2792 module function getQuadGK21_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2794 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK2
2795#endif
2796 use pm_kind, only: RKC => RK2
2797 procedure(real(RKC)) :: getFunc
2798 type(ninf_type) , intent(in) :: lb
2799 real(RKC) , intent(in) :: ub
2800 type(GK21_type) , intent(in) :: qrule
2801 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2802 real(RKC) :: quadGK
2803 end function
2804#endif
2805
2806#if RK1_ENABLED
2807 module function getQuadGK21_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2808#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2809 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_IF_RK1
2810#endif
2811 use pm_kind, only: RKC => RK1
2812 procedure(real(RKC)) :: getFunc
2813 type(ninf_type) , intent(in) :: lb
2814 real(RKC) , intent(in) :: ub
2815 type(GK21_type) , intent(in) :: qrule
2816 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2817 real(RKC) :: quadGK
2818 end function
2819#endif
2820
2821 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2822
2823#if RK5_ENABLED
2824 module function getQuadGK21_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2826 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK5
2827#endif
2828 use pm_kind, only: RKC => RK5
2829 procedure(real(RKC)) :: getFunc
2830 type(ninf_type) , intent(in) :: lb
2831 type(pinf_type) , intent(in) :: ub
2832 type(GK21_type) , intent(in) :: qrule
2833 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2834 real(RKC) :: quadGK
2835 end function
2836#endif
2837
2838#if RK4_ENABLED
2839 module function getQuadGK21_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2841 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK4
2842#endif
2843 use pm_kind, only: RKC => RK4
2844 procedure(real(RKC)) :: getFunc
2845 type(ninf_type) , intent(in) :: lb
2846 type(pinf_type) , intent(in) :: ub
2847 type(GK21_type) , intent(in) :: qrule
2848 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2849 real(RKC) :: quadGK
2850 end function
2851#endif
2852
2853#if RK3_ENABLED
2854 module function getQuadGK21_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2856 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK3
2857#endif
2858 use pm_kind, only: RKC => RK3
2859 procedure(real(RKC)) :: getFunc
2860 type(ninf_type) , intent(in) :: lb
2861 type(pinf_type) , intent(in) :: ub
2862 type(GK21_type) , intent(in) :: qrule
2863 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2864 real(RKC) :: quadGK
2865 end function
2866#endif
2867
2868#if RK2_ENABLED
2869 module function getQuadGK21_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2870#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2871 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK2
2872#endif
2873 use pm_kind, only: RKC => RK2
2874 procedure(real(RKC)) :: getFunc
2875 type(ninf_type) , intent(in) :: lb
2876 type(pinf_type) , intent(in) :: ub
2877 type(GK21_type) , intent(in) :: qrule
2878 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2879 real(RKC) :: quadGK
2880 end function
2881#endif
2882
2883#if RK1_ENABLED
2884 module function getQuadGK21_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2885#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2886 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK21_II_RK1
2887#endif
2888 use pm_kind, only: RKC => RK1
2889 procedure(real(RKC)) :: getFunc
2890 type(ninf_type) , intent(in) :: lb
2891 type(pinf_type) , intent(in) :: ub
2892 type(GK21_type) , intent(in) :: qrule
2893 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2894 real(RKC) :: quadGK
2895 end function
2896#endif
2897
2898 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2899
2900 end interface
2901
2902 ! GK31
2903
2904 interface getQuadGK
2905
2906 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2907
2908#if RK5_ENABLED
2909 module function getQuadGK31_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2911 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK5
2912#endif
2913 use pm_kind, only: RKC => RK5
2914 procedure(real(RKC)) :: getFunc
2915 real(RKC) , intent(in) :: lb
2916 real(RKC) , intent(in) :: ub
2917 type(GK31_type) , intent(in) :: qrule
2918 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2919 real(RKC) :: quadGK
2920 end function
2921#endif
2922
2923#if RK4_ENABLED
2924 module function getQuadGK31_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2926 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK4
2927#endif
2928 use pm_kind, only: RKC => RK4
2929 procedure(real(RKC)) :: getFunc
2930 real(RKC) , intent(in) :: lb
2931 real(RKC) , intent(in) :: ub
2932 type(GK31_type) , intent(in) :: qrule
2933 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2934 real(RKC) :: quadGK
2935 end function
2936#endif
2937
2938#if RK3_ENABLED
2939 module function getQuadGK31_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2941 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK3
2942#endif
2943 use pm_kind, only: RKC => RK3
2944 procedure(real(RKC)) :: getFunc
2945 real(RKC) , intent(in) :: lb
2946 real(RKC) , intent(in) :: ub
2947 type(GK31_type) , intent(in) :: qrule
2948 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2949 real(RKC) :: quadGK
2950 end function
2951#endif
2952
2953#if RK2_ENABLED
2954 module function getQuadGK31_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2956 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK2
2957#endif
2958 use pm_kind, only: RKC => RK2
2959 procedure(real(RKC)) :: getFunc
2960 real(RKC) , intent(in) :: lb
2961 real(RKC) , intent(in) :: ub
2962 type(GK31_type) , intent(in) :: qrule
2963 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2964 real(RKC) :: quadGK
2965 end function
2966#endif
2967
2968#if RK1_ENABLED
2969 module function getQuadGK31_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2971 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FF_RK1
2972#endif
2973 use pm_kind, only: RKC => RK1
2974 procedure(real(RKC)) :: getFunc
2975 real(RKC) , intent(in) :: lb
2976 real(RKC) , intent(in) :: ub
2977 type(GK31_type) , intent(in) :: qrule
2978 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2979 real(RKC) :: quadGK
2980 end function
2981#endif
2982
2983 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2984
2985#if RK5_ENABLED
2986 module function getQuadGK31_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
2987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2988 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK5
2989#endif
2990 use pm_kind, only: RKC => RK5
2991 procedure(real(RKC)) :: getFunc
2992 real(RKC) , intent(in) :: lb
2993 type(pinf_type) , intent(in) :: ub
2994 type(GK31_type) , intent(in) :: qrule
2995 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
2996 real(RKC) :: quadGK
2997 end function
2998#endif
2999
3000#if RK4_ENABLED
3001 module function getQuadGK31_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3003 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK4
3004#endif
3005 use pm_kind, only: RKC => RK4
3006 procedure(real(RKC)) :: getFunc
3007 real(RKC) , intent(in) :: lb
3008 type(pinf_type) , intent(in) :: ub
3009 type(GK31_type) , intent(in) :: qrule
3010 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3011 real(RKC) :: quadGK
3012 end function
3013#endif
3014
3015#if RK3_ENABLED
3016 module function getQuadGK31_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3017#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3018 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK3
3019#endif
3020 use pm_kind, only: RKC => RK3
3021 procedure(real(RKC)) :: getFunc
3022 real(RKC) , intent(in) :: lb
3023 type(pinf_type) , intent(in) :: ub
3024 type(GK31_type) , intent(in) :: qrule
3025 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3026 real(RKC) :: quadGK
3027 end function
3028#endif
3029
3030#if RK2_ENABLED
3031 module function getQuadGK31_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3032#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3033 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK2
3034#endif
3035 use pm_kind, only: RKC => RK2
3036 procedure(real(RKC)) :: getFunc
3037 real(RKC) , intent(in) :: lb
3038 type(pinf_type) , intent(in) :: ub
3039 type(GK31_type) , intent(in) :: qrule
3040 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3041 real(RKC) :: quadGK
3042 end function
3043#endif
3044
3045#if RK1_ENABLED
3046 module function getQuadGK31_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3048 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_FI_RK1
3049#endif
3050 use pm_kind, only: RKC => RK1
3051 procedure(real(RKC)) :: getFunc
3052 real(RKC) , intent(in) :: lb
3053 type(pinf_type) , intent(in) :: ub
3054 type(GK31_type) , intent(in) :: qrule
3055 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3056 real(RKC) :: quadGK
3057 end function
3058#endif
3059
3060 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3061
3062#if RK5_ENABLED
3063 module function getQuadGK31_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3064#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3065 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK5
3066#endif
3067 use pm_kind, only: RKC => RK5
3068 procedure(real(RKC)) :: getFunc
3069 type(ninf_type) , intent(in) :: lb
3070 real(RKC) , intent(in) :: ub
3071 type(GK31_type) , intent(in) :: qrule
3072 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3073 real(RKC) :: quadGK
3074 end function
3075#endif
3076
3077#if RK4_ENABLED
3078 module function getQuadGK31_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3080 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK4
3081#endif
3082 use pm_kind, only: RKC => RK4
3083 procedure(real(RKC)) :: getFunc
3084 type(ninf_type) , intent(in) :: lb
3085 real(RKC) , intent(in) :: ub
3086 type(GK31_type) , intent(in) :: qrule
3087 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3088 real(RKC) :: quadGK
3089 end function
3090#endif
3091
3092#if RK3_ENABLED
3093 module function getQuadGK31_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3095 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK3
3096#endif
3097 use pm_kind, only: RKC => RK3
3098 procedure(real(RKC)) :: getFunc
3099 type(ninf_type) , intent(in) :: lb
3100 real(RKC) , intent(in) :: ub
3101 type(GK31_type) , intent(in) :: qrule
3102 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3103 real(RKC) :: quadGK
3104 end function
3105#endif
3106
3107#if RK2_ENABLED
3108 module function getQuadGK31_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3110 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK2
3111#endif
3112 use pm_kind, only: RKC => RK2
3113 procedure(real(RKC)) :: getFunc
3114 type(ninf_type) , intent(in) :: lb
3115 real(RKC) , intent(in) :: ub
3116 type(GK31_type) , intent(in) :: qrule
3117 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3118 real(RKC) :: quadGK
3119 end function
3120#endif
3121
3122#if RK1_ENABLED
3123 module function getQuadGK31_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3125 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_IF_RK1
3126#endif
3127 use pm_kind, only: RKC => RK1
3128 procedure(real(RKC)) :: getFunc
3129 type(ninf_type) , intent(in) :: lb
3130 real(RKC) , intent(in) :: ub
3131 type(GK31_type) , intent(in) :: qrule
3132 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3133 real(RKC) :: quadGK
3134 end function
3135#endif
3136
3137 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3138
3139#if RK5_ENABLED
3140 module function getQuadGK31_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3142 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK5
3143#endif
3144 use pm_kind, only: RKC => RK5
3145 procedure(real(RKC)) :: getFunc
3146 type(ninf_type) , intent(in) :: lb
3147 type(pinf_type) , intent(in) :: ub
3148 type(GK31_type) , intent(in) :: qrule
3149 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3150 real(RKC) :: quadGK
3151 end function
3152#endif
3153
3154#if RK4_ENABLED
3155 module function getQuadGK31_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3156#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3157 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK4
3158#endif
3159 use pm_kind, only: RKC => RK4
3160 procedure(real(RKC)) :: getFunc
3161 type(ninf_type) , intent(in) :: lb
3162 type(pinf_type) , intent(in) :: ub
3163 type(GK31_type) , intent(in) :: qrule
3164 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3165 real(RKC) :: quadGK
3166 end function
3167#endif
3168
3169#if RK3_ENABLED
3170 module function getQuadGK31_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3172 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK3
3173#endif
3174 use pm_kind, only: RKC => RK3
3175 procedure(real(RKC)) :: getFunc
3176 type(ninf_type) , intent(in) :: lb
3177 type(pinf_type) , intent(in) :: ub
3178 type(GK31_type) , intent(in) :: qrule
3179 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3180 real(RKC) :: quadGK
3181 end function
3182#endif
3183
3184#if RK2_ENABLED
3185 module function getQuadGK31_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3186#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3187 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK2
3188#endif
3189 use pm_kind, only: RKC => RK2
3190 procedure(real(RKC)) :: getFunc
3191 type(ninf_type) , intent(in) :: lb
3192 type(pinf_type) , intent(in) :: ub
3193 type(GK31_type) , intent(in) :: qrule
3194 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3195 real(RKC) :: quadGK
3196 end function
3197#endif
3198
3199#if RK1_ENABLED
3200 module function getQuadGK31_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3202 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK31_II_RK1
3203#endif
3204 use pm_kind, only: RKC => RK1
3205 procedure(real(RKC)) :: getFunc
3206 type(ninf_type) , intent(in) :: lb
3207 type(pinf_type) , intent(in) :: ub
3208 type(GK31_type) , intent(in) :: qrule
3209 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3210 real(RKC) :: quadGK
3211 end function
3212#endif
3213
3214 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3215
3216 end interface
3217
3218 ! GK41
3219
3220 interface getQuadGK
3221
3222 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3223
3224#if RK5_ENABLED
3225 module function getQuadGK41_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3226#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3227 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK5
3228#endif
3229 use pm_kind, only: RKC => RK5
3230 procedure(real(RKC)) :: getFunc
3231 real(RKC) , intent(in) :: lb
3232 real(RKC) , intent(in) :: ub
3233 type(GK41_type) , intent(in) :: qrule
3234 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3235 real(RKC) :: quadGK
3236 end function
3237#endif
3238
3239#if RK4_ENABLED
3240 module function getQuadGK41_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3242 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK4
3243#endif
3244 use pm_kind, only: RKC => RK4
3245 procedure(real(RKC)) :: getFunc
3246 real(RKC) , intent(in) :: lb
3247 real(RKC) , intent(in) :: ub
3248 type(GK41_type) , intent(in) :: qrule
3249 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3250 real(RKC) :: quadGK
3251 end function
3252#endif
3253
3254#if RK3_ENABLED
3255 module function getQuadGK41_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3257 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK3
3258#endif
3259 use pm_kind, only: RKC => RK3
3260 procedure(real(RKC)) :: getFunc
3261 real(RKC) , intent(in) :: lb
3262 real(RKC) , intent(in) :: ub
3263 type(GK41_type) , intent(in) :: qrule
3264 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3265 real(RKC) :: quadGK
3266 end function
3267#endif
3268
3269#if RK2_ENABLED
3270 module function getQuadGK41_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3272 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK2
3273#endif
3274 use pm_kind, only: RKC => RK2
3275 procedure(real(RKC)) :: getFunc
3276 real(RKC) , intent(in) :: lb
3277 real(RKC) , intent(in) :: ub
3278 type(GK41_type) , intent(in) :: qrule
3279 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3280 real(RKC) :: quadGK
3281 end function
3282#endif
3283
3284#if RK1_ENABLED
3285 module function getQuadGK41_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3286#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3287 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FF_RK1
3288#endif
3289 use pm_kind, only: RKC => RK1
3290 procedure(real(RKC)) :: getFunc
3291 real(RKC) , intent(in) :: lb
3292 real(RKC) , intent(in) :: ub
3293 type(GK41_type) , intent(in) :: qrule
3294 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3295 real(RKC) :: quadGK
3296 end function
3297#endif
3298
3299 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3300
3301#if RK5_ENABLED
3302 module function getQuadGK41_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3304 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK5
3305#endif
3306 use pm_kind, only: RKC => RK5
3307 procedure(real(RKC)) :: getFunc
3308 real(RKC) , intent(in) :: lb
3309 type(pinf_type) , intent(in) :: ub
3310 type(GK41_type) , intent(in) :: qrule
3311 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3312 real(RKC) :: quadGK
3313 end function
3314#endif
3315
3316#if RK4_ENABLED
3317 module function getQuadGK41_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3319 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK4
3320#endif
3321 use pm_kind, only: RKC => RK4
3322 procedure(real(RKC)) :: getFunc
3323 real(RKC) , intent(in) :: lb
3324 type(pinf_type) , intent(in) :: ub
3325 type(GK41_type) , intent(in) :: qrule
3326 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3327 real(RKC) :: quadGK
3328 end function
3329#endif
3330
3331#if RK3_ENABLED
3332 module function getQuadGK41_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3334 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK3
3335#endif
3336 use pm_kind, only: RKC => RK3
3337 procedure(real(RKC)) :: getFunc
3338 real(RKC) , intent(in) :: lb
3339 type(pinf_type) , intent(in) :: ub
3340 type(GK41_type) , intent(in) :: qrule
3341 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3342 real(RKC) :: quadGK
3343 end function
3344#endif
3345
3346#if RK2_ENABLED
3347 module function getQuadGK41_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3348#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3349 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK2
3350#endif
3351 use pm_kind, only: RKC => RK2
3352 procedure(real(RKC)) :: getFunc
3353 real(RKC) , intent(in) :: lb
3354 type(pinf_type) , intent(in) :: ub
3355 type(GK41_type) , intent(in) :: qrule
3356 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3357 real(RKC) :: quadGK
3358 end function
3359#endif
3360
3361#if RK1_ENABLED
3362 module function getQuadGK41_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3364 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_FI_RK1
3365#endif
3366 use pm_kind, only: RKC => RK1
3367 procedure(real(RKC)) :: getFunc
3368 real(RKC) , intent(in) :: lb
3369 type(pinf_type) , intent(in) :: ub
3370 type(GK41_type) , intent(in) :: qrule
3371 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3372 real(RKC) :: quadGK
3373 end function
3374#endif
3375
3376 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3377
3378#if RK5_ENABLED
3379 module function getQuadGK41_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3381 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK5
3382#endif
3383 use pm_kind, only: RKC => RK5
3384 procedure(real(RKC)) :: getFunc
3385 type(ninf_type) , intent(in) :: lb
3386 real(RKC) , intent(in) :: ub
3387 type(GK41_type) , intent(in) :: qrule
3388 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3389 real(RKC) :: quadGK
3390 end function
3391#endif
3392
3393#if RK4_ENABLED
3394 module function getQuadGK41_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3396 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK4
3397#endif
3398 use pm_kind, only: RKC => RK4
3399 procedure(real(RKC)) :: getFunc
3400 type(ninf_type) , intent(in) :: lb
3401 real(RKC) , intent(in) :: ub
3402 type(GK41_type) , intent(in) :: qrule
3403 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3404 real(RKC) :: quadGK
3405 end function
3406#endif
3407
3408#if RK3_ENABLED
3409 module function getQuadGK41_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3411 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK3
3412#endif
3413 use pm_kind, only: RKC => RK3
3414 procedure(real(RKC)) :: getFunc
3415 type(ninf_type) , intent(in) :: lb
3416 real(RKC) , intent(in) :: ub
3417 type(GK41_type) , intent(in) :: qrule
3418 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3419 real(RKC) :: quadGK
3420 end function
3421#endif
3422
3423#if RK2_ENABLED
3424 module function getQuadGK41_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3426 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK2
3427#endif
3428 use pm_kind, only: RKC => RK2
3429 procedure(real(RKC)) :: getFunc
3430 type(ninf_type) , intent(in) :: lb
3431 real(RKC) , intent(in) :: ub
3432 type(GK41_type) , intent(in) :: qrule
3433 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3434 real(RKC) :: quadGK
3435 end function
3436#endif
3437
3438#if RK1_ENABLED
3439 module function getQuadGK41_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3440#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3441 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_IF_RK1
3442#endif
3443 use pm_kind, only: RKC => RK1
3444 procedure(real(RKC)) :: getFunc
3445 type(ninf_type) , intent(in) :: lb
3446 real(RKC) , intent(in) :: ub
3447 type(GK41_type) , intent(in) :: qrule
3448 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3449 real(RKC) :: quadGK
3450 end function
3451#endif
3452
3453 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3454
3455#if RK5_ENABLED
3456 module function getQuadGK41_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3458 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK5
3459#endif
3460 use pm_kind, only: RKC => RK5
3461 procedure(real(RKC)) :: getFunc
3462 type(ninf_type) , intent(in) :: lb
3463 type(pinf_type) , intent(in) :: ub
3464 type(GK41_type) , intent(in) :: qrule
3465 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3466 real(RKC) :: quadGK
3467 end function
3468#endif
3469
3470#if RK4_ENABLED
3471 module function getQuadGK41_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3473 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK4
3474#endif
3475 use pm_kind, only: RKC => RK4
3476 procedure(real(RKC)) :: getFunc
3477 type(ninf_type) , intent(in) :: lb
3478 type(pinf_type) , intent(in) :: ub
3479 type(GK41_type) , intent(in) :: qrule
3480 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3481 real(RKC) :: quadGK
3482 end function
3483#endif
3484
3485#if RK3_ENABLED
3486 module function getQuadGK41_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3488 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK3
3489#endif
3490 use pm_kind, only: RKC => RK3
3491 procedure(real(RKC)) :: getFunc
3492 type(ninf_type) , intent(in) :: lb
3493 type(pinf_type) , intent(in) :: ub
3494 type(GK41_type) , intent(in) :: qrule
3495 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3496 real(RKC) :: quadGK
3497 end function
3498#endif
3499
3500#if RK2_ENABLED
3501 module function getQuadGK41_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3503 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK2
3504#endif
3505 use pm_kind, only: RKC => RK2
3506 procedure(real(RKC)) :: getFunc
3507 type(ninf_type) , intent(in) :: lb
3508 type(pinf_type) , intent(in) :: ub
3509 type(GK41_type) , intent(in) :: qrule
3510 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3511 real(RKC) :: quadGK
3512 end function
3513#endif
3514
3515#if RK1_ENABLED
3516 module function getQuadGK41_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3518 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK41_II_RK1
3519#endif
3520 use pm_kind, only: RKC => RK1
3521 procedure(real(RKC)) :: getFunc
3522 type(ninf_type) , intent(in) :: lb
3523 type(pinf_type) , intent(in) :: ub
3524 type(GK41_type) , intent(in) :: qrule
3525 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3526 real(RKC) :: quadGK
3527 end function
3528#endif
3529
3530 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3531
3532 end interface
3533
3534 ! GK51
3535
3536 interface getQuadGK
3537
3538 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3539
3540#if RK5_ENABLED
3541 module function getQuadGK51_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3543 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK5
3544#endif
3545 use pm_kind, only: RKC => RK5
3546 procedure(real(RKC)) :: getFunc
3547 real(RKC) , intent(in) :: lb
3548 real(RKC) , intent(in) :: ub
3549 type(GK51_type) , intent(in) :: qrule
3550 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3551 real(RKC) :: quadGK
3552 end function
3553#endif
3554
3555#if RK4_ENABLED
3556 module function getQuadGK51_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3558 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK4
3559#endif
3560 use pm_kind, only: RKC => RK4
3561 procedure(real(RKC)) :: getFunc
3562 real(RKC) , intent(in) :: lb
3563 real(RKC) , intent(in) :: ub
3564 type(GK51_type) , intent(in) :: qrule
3565 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3566 real(RKC) :: quadGK
3567 end function
3568#endif
3569
3570#if RK3_ENABLED
3571 module function getQuadGK51_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3573 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK3
3574#endif
3575 use pm_kind, only: RKC => RK3
3576 procedure(real(RKC)) :: getFunc
3577 real(RKC) , intent(in) :: lb
3578 real(RKC) , intent(in) :: ub
3579 type(GK51_type) , intent(in) :: qrule
3580 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3581 real(RKC) :: quadGK
3582 end function
3583#endif
3584
3585#if RK2_ENABLED
3586 module function getQuadGK51_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3587#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3588 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK2
3589#endif
3590 use pm_kind, only: RKC => RK2
3591 procedure(real(RKC)) :: getFunc
3592 real(RKC) , intent(in) :: lb
3593 real(RKC) , intent(in) :: ub
3594 type(GK51_type) , intent(in) :: qrule
3595 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3596 real(RKC) :: quadGK
3597 end function
3598#endif
3599
3600#if RK1_ENABLED
3601 module function getQuadGK51_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3603 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FF_RK1
3604#endif
3605 use pm_kind, only: RKC => RK1
3606 procedure(real(RKC)) :: getFunc
3607 real(RKC) , intent(in) :: lb
3608 real(RKC) , intent(in) :: ub
3609 type(GK51_type) , intent(in) :: qrule
3610 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3611 real(RKC) :: quadGK
3612 end function
3613#endif
3614
3615 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3616
3617#if RK5_ENABLED
3618 module function getQuadGK51_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3620 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK5
3621#endif
3622 use pm_kind, only: RKC => RK5
3623 procedure(real(RKC)) :: getFunc
3624 real(RKC) , intent(in) :: lb
3625 type(pinf_type) , intent(in) :: ub
3626 type(GK51_type) , intent(in) :: qrule
3627 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3628 real(RKC) :: quadGK
3629 end function
3630#endif
3631
3632#if RK4_ENABLED
3633 module function getQuadGK51_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3634#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3635 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK4
3636#endif
3637 use pm_kind, only: RKC => RK4
3638 procedure(real(RKC)) :: getFunc
3639 real(RKC) , intent(in) :: lb
3640 type(pinf_type) , intent(in) :: ub
3641 type(GK51_type) , intent(in) :: qrule
3642 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3643 real(RKC) :: quadGK
3644 end function
3645#endif
3646
3647#if RK3_ENABLED
3648 module function getQuadGK51_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3650 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK3
3651#endif
3652 use pm_kind, only: RKC => RK3
3653 procedure(real(RKC)) :: getFunc
3654 real(RKC) , intent(in) :: lb
3655 type(pinf_type) , intent(in) :: ub
3656 type(GK51_type) , intent(in) :: qrule
3657 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3658 real(RKC) :: quadGK
3659 end function
3660#endif
3661
3662#if RK2_ENABLED
3663 module function getQuadGK51_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3665 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK2
3666#endif
3667 use pm_kind, only: RKC => RK2
3668 procedure(real(RKC)) :: getFunc
3669 real(RKC) , intent(in) :: lb
3670 type(pinf_type) , intent(in) :: ub
3671 type(GK51_type) , intent(in) :: qrule
3672 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3673 real(RKC) :: quadGK
3674 end function
3675#endif
3676
3677#if RK1_ENABLED
3678 module function getQuadGK51_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3680 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_FI_RK1
3681#endif
3682 use pm_kind, only: RKC => RK1
3683 procedure(real(RKC)) :: getFunc
3684 real(RKC) , intent(in) :: lb
3685 type(pinf_type) , intent(in) :: ub
3686 type(GK51_type) , intent(in) :: qrule
3687 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3688 real(RKC) :: quadGK
3689 end function
3690#endif
3691
3692 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3693
3694#if RK5_ENABLED
3695 module function getQuadGK51_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3697 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK5
3698#endif
3699 use pm_kind, only: RKC => RK5
3700 procedure(real(RKC)) :: getFunc
3701 type(ninf_type) , intent(in) :: lb
3702 real(RKC) , intent(in) :: ub
3703 type(GK51_type) , intent(in) :: qrule
3704 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3705 real(RKC) :: quadGK
3706 end function
3707#endif
3708
3709#if RK4_ENABLED
3710 module function getQuadGK51_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3712 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK4
3713#endif
3714 use pm_kind, only: RKC => RK4
3715 procedure(real(RKC)) :: getFunc
3716 type(ninf_type) , intent(in) :: lb
3717 real(RKC) , intent(in) :: ub
3718 type(GK51_type) , intent(in) :: qrule
3719 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3720 real(RKC) :: quadGK
3721 end function
3722#endif
3723
3724#if RK3_ENABLED
3725 module function getQuadGK51_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3726#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3727 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK3
3728#endif
3729 use pm_kind, only: RKC => RK3
3730 procedure(real(RKC)) :: getFunc
3731 type(ninf_type) , intent(in) :: lb
3732 real(RKC) , intent(in) :: ub
3733 type(GK51_type) , intent(in) :: qrule
3734 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3735 real(RKC) :: quadGK
3736 end function
3737#endif
3738
3739#if RK2_ENABLED
3740 module function getQuadGK51_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3742 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK2
3743#endif
3744 use pm_kind, only: RKC => RK2
3745 procedure(real(RKC)) :: getFunc
3746 type(ninf_type) , intent(in) :: lb
3747 real(RKC) , intent(in) :: ub
3748 type(GK51_type) , intent(in) :: qrule
3749 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3750 real(RKC) :: quadGK
3751 end function
3752#endif
3753
3754#if RK1_ENABLED
3755 module function getQuadGK51_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3756#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3757 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_IF_RK1
3758#endif
3759 use pm_kind, only: RKC => RK1
3760 procedure(real(RKC)) :: getFunc
3761 type(ninf_type) , intent(in) :: lb
3762 real(RKC) , intent(in) :: ub
3763 type(GK51_type) , intent(in) :: qrule
3764 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3765 real(RKC) :: quadGK
3766 end function
3767#endif
3768
3769 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3770
3771#if RK5_ENABLED
3772 module function getQuadGK51_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3774 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK5
3775#endif
3776 use pm_kind, only: RKC => RK5
3777 procedure(real(RKC)) :: getFunc
3778 type(ninf_type) , intent(in) :: lb
3779 type(pinf_type) , intent(in) :: ub
3780 type(GK51_type) , intent(in) :: qrule
3781 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3782 real(RKC) :: quadGK
3783 end function
3784#endif
3785
3786#if RK4_ENABLED
3787 module function getQuadGK51_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3788#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3789 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK4
3790#endif
3791 use pm_kind, only: RKC => RK4
3792 procedure(real(RKC)) :: getFunc
3793 type(ninf_type) , intent(in) :: lb
3794 type(pinf_type) , intent(in) :: ub
3795 type(GK51_type) , intent(in) :: qrule
3796 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3797 real(RKC) :: quadGK
3798 end function
3799#endif
3800
3801#if RK3_ENABLED
3802 module function getQuadGK51_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3804 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK3
3805#endif
3806 use pm_kind, only: RKC => RK3
3807 procedure(real(RKC)) :: getFunc
3808 type(ninf_type) , intent(in) :: lb
3809 type(pinf_type) , intent(in) :: ub
3810 type(GK51_type) , intent(in) :: qrule
3811 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3812 real(RKC) :: quadGK
3813 end function
3814#endif
3815
3816#if RK2_ENABLED
3817 module function getQuadGK51_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3818#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3819 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK2
3820#endif
3821 use pm_kind, only: RKC => RK2
3822 procedure(real(RKC)) :: getFunc
3823 type(ninf_type) , intent(in) :: lb
3824 type(pinf_type) , intent(in) :: ub
3825 type(GK51_type) , intent(in) :: qrule
3826 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3827 real(RKC) :: quadGK
3828 end function
3829#endif
3830
3831#if RK1_ENABLED
3832 module function getQuadGK51_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3834 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK51_II_RK1
3835#endif
3836 use pm_kind, only: RKC => RK1
3837 procedure(real(RKC)) :: getFunc
3838 type(ninf_type) , intent(in) :: lb
3839 type(pinf_type) , intent(in) :: ub
3840 type(GK51_type) , intent(in) :: qrule
3841 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3842 real(RKC) :: quadGK
3843 end function
3844#endif
3845
3846 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3847
3848 end interface
3849
3850 ! GK61
3851
3852 interface getQuadGK
3853
3854 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3855
3856#if RK5_ENABLED
3857 module function getQuadGK61_FF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3859 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK5
3860#endif
3861 use pm_kind, only: RKC => RK5
3862 procedure(real(RKC)) :: getFunc
3863 real(RKC) , intent(in) :: lb
3864 real(RKC) , intent(in) :: ub
3865 type(GK61_type) , intent(in) :: qrule
3866 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3867 real(RKC) :: quadGK
3868 end function
3869#endif
3870
3871#if RK4_ENABLED
3872 module function getQuadGK61_FF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3874 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK4
3875#endif
3876 use pm_kind, only: RKC => RK4
3877 procedure(real(RKC)) :: getFunc
3878 real(RKC) , intent(in) :: lb
3879 real(RKC) , intent(in) :: ub
3880 type(GK61_type) , intent(in) :: qrule
3881 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3882 real(RKC) :: quadGK
3883 end function
3884#endif
3885
3886#if RK3_ENABLED
3887 module function getQuadGK61_FF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3889 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK3
3890#endif
3891 use pm_kind, only: RKC => RK3
3892 procedure(real(RKC)) :: getFunc
3893 real(RKC) , intent(in) :: lb
3894 real(RKC) , intent(in) :: ub
3895 type(GK61_type) , intent(in) :: qrule
3896 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3897 real(RKC) :: quadGK
3898 end function
3899#endif
3900
3901#if RK2_ENABLED
3902 module function getQuadGK61_FF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3904 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK2
3905#endif
3906 use pm_kind, only: RKC => RK2
3907 procedure(real(RKC)) :: getFunc
3908 real(RKC) , intent(in) :: lb
3909 real(RKC) , intent(in) :: ub
3910 type(GK61_type) , intent(in) :: qrule
3911 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3912 real(RKC) :: quadGK
3913 end function
3914#endif
3915
3916#if RK1_ENABLED
3917 module function getQuadGK61_FF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3918#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3919 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FF_RK1
3920#endif
3921 use pm_kind, only: RKC => RK1
3922 procedure(real(RKC)) :: getFunc
3923 real(RKC) , intent(in) :: lb
3924 real(RKC) , intent(in) :: ub
3925 type(GK61_type) , intent(in) :: qrule
3926 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3927 real(RKC) :: quadGK
3928 end function
3929#endif
3930
3931 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3932
3933#if RK5_ENABLED
3934 module function getQuadGK61_FI_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3936 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK5
3937#endif
3938 use pm_kind, only: RKC => RK5
3939 procedure(real(RKC)) :: getFunc
3940 real(RKC) , intent(in) :: lb
3941 type(pinf_type) , intent(in) :: ub
3942 type(GK61_type) , intent(in) :: qrule
3943 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3944 real(RKC) :: quadGK
3945 end function
3946#endif
3947
3948#if RK4_ENABLED
3949 module function getQuadGK61_FI_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3951 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK4
3952#endif
3953 use pm_kind, only: RKC => RK4
3954 procedure(real(RKC)) :: getFunc
3955 real(RKC) , intent(in) :: lb
3956 type(pinf_type) , intent(in) :: ub
3957 type(GK61_type) , intent(in) :: qrule
3958 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3959 real(RKC) :: quadGK
3960 end function
3961#endif
3962
3963#if RK3_ENABLED
3964 module function getQuadGK61_FI_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3966 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK3
3967#endif
3968 use pm_kind, only: RKC => RK3
3969 procedure(real(RKC)) :: getFunc
3970 real(RKC) , intent(in) :: lb
3971 type(pinf_type) , intent(in) :: ub
3972 type(GK61_type) , intent(in) :: qrule
3973 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3974 real(RKC) :: quadGK
3975 end function
3976#endif
3977
3978#if RK2_ENABLED
3979 module function getQuadGK61_FI_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3981 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK2
3982#endif
3983 use pm_kind, only: RKC => RK2
3984 procedure(real(RKC)) :: getFunc
3985 real(RKC) , intent(in) :: lb
3986 type(pinf_type) , intent(in) :: ub
3987 type(GK61_type) , intent(in) :: qrule
3988 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
3989 real(RKC) :: quadGK
3990 end function
3991#endif
3992
3993#if RK1_ENABLED
3994 module function getQuadGK61_FI_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
3995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3996 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_FI_RK1
3997#endif
3998 use pm_kind, only: RKC => RK1
3999 procedure(real(RKC)) :: getFunc
4000 real(RKC) , intent(in) :: lb
4001 type(pinf_type) , intent(in) :: ub
4002 type(GK61_type) , intent(in) :: qrule
4003 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4004 real(RKC) :: quadGK
4005 end function
4006#endif
4007
4008 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4009
4010#if RK5_ENABLED
4011 module function getQuadGK61_IF_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4013 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK5
4014#endif
4015 use pm_kind, only: RKC => RK5
4016 procedure(real(RKC)) :: getFunc
4017 type(ninf_type) , intent(in) :: lb
4018 real(RKC) , intent(in) :: ub
4019 type(GK61_type) , intent(in) :: qrule
4020 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4021 real(RKC) :: quadGK
4022 end function
4023#endif
4024
4025#if RK4_ENABLED
4026 module function getQuadGK61_IF_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4028 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK4
4029#endif
4030 use pm_kind, only: RKC => RK4
4031 procedure(real(RKC)) :: getFunc
4032 type(ninf_type) , intent(in) :: lb
4033 real(RKC) , intent(in) :: ub
4034 type(GK61_type) , intent(in) :: qrule
4035 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4036 real(RKC) :: quadGK
4037 end function
4038#endif
4039
4040#if RK3_ENABLED
4041 module function getQuadGK61_IF_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4043 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK3
4044#endif
4045 use pm_kind, only: RKC => RK3
4046 procedure(real(RKC)) :: getFunc
4047 type(ninf_type) , intent(in) :: lb
4048 real(RKC) , intent(in) :: ub
4049 type(GK61_type) , intent(in) :: qrule
4050 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4051 real(RKC) :: quadGK
4052 end function
4053#endif
4054
4055#if RK2_ENABLED
4056 module function getQuadGK61_IF_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4058 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK2
4059#endif
4060 use pm_kind, only: RKC => RK2
4061 procedure(real(RKC)) :: getFunc
4062 type(ninf_type) , intent(in) :: lb
4063 real(RKC) , intent(in) :: ub
4064 type(GK61_type) , intent(in) :: qrule
4065 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4066 real(RKC) :: quadGK
4067 end function
4068#endif
4069
4070#if RK1_ENABLED
4071 module function getQuadGK61_IF_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4072#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4073 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_IF_RK1
4074#endif
4075 use pm_kind, only: RKC => RK1
4076 procedure(real(RKC)) :: getFunc
4077 type(ninf_type) , intent(in) :: lb
4078 real(RKC) , intent(in) :: ub
4079 type(GK61_type) , intent(in) :: qrule
4080 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4081 real(RKC) :: quadGK
4082 end function
4083#endif
4084
4085 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4086
4087#if RK5_ENABLED
4088 module function getQuadGK61_II_RK5(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4090 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK5
4091#endif
4092 use pm_kind, only: RKC => RK5
4093 procedure(real(RKC)) :: getFunc
4094 type(ninf_type) , intent(in) :: lb
4095 type(pinf_type) , intent(in) :: ub
4096 type(GK61_type) , intent(in) :: qrule
4097 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4098 real(RKC) :: quadGK
4099 end function
4100#endif
4101
4102#if RK4_ENABLED
4103 module function getQuadGK61_II_RK4(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4105 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK4
4106#endif
4107 use pm_kind, only: RKC => RK4
4108 procedure(real(RKC)) :: getFunc
4109 type(ninf_type) , intent(in) :: lb
4110 type(pinf_type) , intent(in) :: ub
4111 type(GK61_type) , intent(in) :: qrule
4112 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4113 real(RKC) :: quadGK
4114 end function
4115#endif
4116
4117#if RK3_ENABLED
4118 module function getQuadGK61_II_RK3(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4120 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK3
4121#endif
4122 use pm_kind, only: RKC => RK3
4123 procedure(real(RKC)) :: getFunc
4124 type(ninf_type) , intent(in) :: lb
4125 type(pinf_type) , intent(in) :: ub
4126 type(GK61_type) , intent(in) :: qrule
4127 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4128 real(RKC) :: quadGK
4129 end function
4130#endif
4131
4132#if RK2_ENABLED
4133 module function getQuadGK61_II_RK2(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4134#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4135 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK2
4136#endif
4137 use pm_kind, only: RKC => RK2
4138 procedure(real(RKC)) :: getFunc
4139 type(ninf_type) , intent(in) :: lb
4140 type(pinf_type) , intent(in) :: ub
4141 type(GK61_type) , intent(in) :: qrule
4142 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4143 real(RKC) :: quadGK
4144 end function
4145#endif
4146
4147#if RK1_ENABLED
4148 module function getQuadGK61_II_RK1(getFunc, lb, ub, qrule, abserr, intAbsFunc, smoothness) result(quadGK)
4149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4150 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGK61_II_RK1
4151#endif
4152 use pm_kind, only: RKC => RK1
4153 procedure(real(RKC)) :: getFunc
4154 type(ninf_type) , intent(in) :: lb
4155 type(pinf_type) , intent(in) :: ub
4156 type(GK61_type) , intent(in) :: qrule
4157 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4158 real(RKC) :: quadGK
4159 end function
4160#endif
4161
4162 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4163
4164 end interface
4165
4166 ! GKXX
4167
4168 interface getQuadGK
4169
4170 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4171
4172#if RK5_ENABLED
4173 module function getQuadGKXX_FF_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4175 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK5
4176#endif
4177 use pm_kind, only: RKC => RK5
4178 procedure(real(RKC)) :: getFunc
4179 real(RKC) , intent(in) :: lb
4180 real(RKC) , intent(in) :: ub
4181 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4182 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4183 real(RKC) :: quadGK
4184 end function
4185#endif
4186
4187#if RK4_ENABLED
4188 module function getQuadGKXX_FF_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4189#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4190 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK4
4191#endif
4192 use pm_kind, only: RKC => RK4
4193 procedure(real(RKC)) :: getFunc
4194 real(RKC) , intent(in) :: lb
4195 real(RKC) , intent(in) :: ub
4196 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4197 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4198 real(RKC) :: quadGK
4199 end function
4200#endif
4201
4202#if RK3_ENABLED
4203 module function getQuadGKXX_FF_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4205 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK3
4206#endif
4207 use pm_kind, only: RKC => RK3
4208 procedure(real(RKC)) :: getFunc
4209 real(RKC) , intent(in) :: lb
4210 real(RKC) , intent(in) :: ub
4211 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4212 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4213 real(RKC) :: quadGK
4214 end function
4215#endif
4216
4217#if RK2_ENABLED
4218 module function getQuadGKXX_FF_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4220 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK2
4221#endif
4222 use pm_kind, only: RKC => RK2
4223 procedure(real(RKC)) :: getFunc
4224 real(RKC) , intent(in) :: lb
4225 real(RKC) , intent(in) :: ub
4226 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4227 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4228 real(RKC) :: quadGK
4229 end function
4230#endif
4231
4232#if RK1_ENABLED
4233 module function getQuadGKXX_FF_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4235 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FF_RK1
4236#endif
4237 use pm_kind, only: RKC => RK1
4238 procedure(real(RKC)) :: getFunc
4239 real(RKC) , intent(in) :: lb
4240 real(RKC) , intent(in) :: ub
4241 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4242 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4243 real(RKC) :: quadGK
4244 end function
4245#endif
4246
4247 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4248
4249#if RK5_ENABLED
4250 module function getQuadGKXX_FI_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4252 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK5
4253#endif
4254 use pm_kind, only: RKC => RK5
4255 procedure(real(RKC)) :: getFunc
4256 real(RKC) , intent(in) :: lb
4257 type(pinf_type) , intent(in) :: ub
4258 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4259 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4260 real(RKC) :: quadGK
4261 end function
4262#endif
4263
4264#if RK4_ENABLED
4265 module function getQuadGKXX_FI_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4266#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4267 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK4
4268#endif
4269 use pm_kind, only: RKC => RK4
4270 procedure(real(RKC)) :: getFunc
4271 real(RKC) , intent(in) :: lb
4272 type(pinf_type) , intent(in) :: ub
4273 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4274 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4275 real(RKC) :: quadGK
4276 end function
4277#endif
4278
4279#if RK3_ENABLED
4280 module function getQuadGKXX_FI_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4281#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4282 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK3
4283#endif
4284 use pm_kind, only: RKC => RK3
4285 procedure(real(RKC)) :: getFunc
4286 real(RKC) , intent(in) :: lb
4287 type(pinf_type) , intent(in) :: ub
4288 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4289 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4290 real(RKC) :: quadGK
4291 end function
4292#endif
4293
4294#if RK2_ENABLED
4295 module function getQuadGKXX_FI_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4297 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK2
4298#endif
4299 use pm_kind, only: RKC => RK2
4300 procedure(real(RKC)) :: getFunc
4301 real(RKC) , intent(in) :: lb
4302 type(pinf_type) , intent(in) :: ub
4303 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4304 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4305 real(RKC) :: quadGK
4306 end function
4307#endif
4308
4309#if RK1_ENABLED
4310 module function getQuadGKXX_FI_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4312 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_FI_RK1
4313#endif
4314 use pm_kind, only: RKC => RK1
4315 procedure(real(RKC)) :: getFunc
4316 real(RKC) , intent(in) :: lb
4317 type(pinf_type) , intent(in) :: ub
4318 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4319 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4320 real(RKC) :: quadGK
4321 end function
4322#endif
4323
4324 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4325
4326#if RK5_ENABLED
4327 module function getQuadGKXX_IF_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4329 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK5
4330#endif
4331 use pm_kind, only: RKC => RK5
4332 procedure(real(RKC)) :: getFunc
4333 type(ninf_type) , intent(in) :: lb
4334 real(RKC) , intent(in) :: ub
4335 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4336 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4337 real(RKC) :: quadGK
4338 end function
4339#endif
4340
4341#if RK4_ENABLED
4342 module function getQuadGKXX_IF_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4344 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK4
4345#endif
4346 use pm_kind, only: RKC => RK4
4347 procedure(real(RKC)) :: getFunc
4348 type(ninf_type) , intent(in) :: lb
4349 real(RKC) , intent(in) :: ub
4350 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4351 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4352 real(RKC) :: quadGK
4353 end function
4354#endif
4355
4356#if RK3_ENABLED
4357 module function getQuadGKXX_IF_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4359 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK3
4360#endif
4361 use pm_kind, only: RKC => RK3
4362 procedure(real(RKC)) :: getFunc
4363 type(ninf_type) , intent(in) :: lb
4364 real(RKC) , intent(in) :: ub
4365 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4366 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4367 real(RKC) :: quadGK
4368 end function
4369#endif
4370
4371#if RK2_ENABLED
4372 module function getQuadGKXX_IF_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4374 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK2
4375#endif
4376 use pm_kind, only: RKC => RK2
4377 procedure(real(RKC)) :: getFunc
4378 type(ninf_type) , intent(in) :: lb
4379 real(RKC) , intent(in) :: ub
4380 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4381 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4382 real(RKC) :: quadGK
4383 end function
4384#endif
4385
4386#if RK1_ENABLED
4387 module function getQuadGKXX_IF_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4388#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4389 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_IF_RK1
4390#endif
4391 use pm_kind, only: RKC => RK1
4392 procedure(real(RKC)) :: getFunc
4393 type(ninf_type) , intent(in) :: lb
4394 real(RKC) , intent(in) :: ub
4395 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4396 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4397 real(RKC) :: quadGK
4398 end function
4399#endif
4400
4401 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4402
4403#if RK5_ENABLED
4404 module function getQuadGKXX_II_RK5(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4406 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK5
4407#endif
4408 use pm_kind, only: RKC => RK5
4409 procedure(real(RKC)) :: getFunc
4410 type(ninf_type) , intent(in) :: lb
4411 type(pinf_type) , intent(in) :: ub
4412 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4413 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4414 real(RKC) :: quadGK
4415 end function
4416#endif
4417
4418#if RK4_ENABLED
4419 module function getQuadGKXX_II_RK4(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4420#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4421 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK4
4422#endif
4423 use pm_kind, only: RKC => RK4
4424 procedure(real(RKC)) :: getFunc
4425 type(ninf_type) , intent(in) :: lb
4426 type(pinf_type) , intent(in) :: ub
4427 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4428 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4429 real(RKC) :: quadGK
4430 end function
4431#endif
4432
4433#if RK3_ENABLED
4434 module function getQuadGKXX_II_RK3(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4436 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK3
4437#endif
4438 use pm_kind, only: RKC => RK3
4439 procedure(real(RKC)) :: getFunc
4440 type(ninf_type) , intent(in) :: lb
4441 type(pinf_type) , intent(in) :: ub
4442 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4443 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4444 real(RKC) :: quadGK
4445 end function
4446#endif
4447
4448#if RK2_ENABLED
4449 module function getQuadGKXX_II_RK2(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4451 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK2
4452#endif
4453 use pm_kind, only: RKC => RK2
4454 procedure(real(RKC)) :: getFunc
4455 type(ninf_type) , intent(in) :: lb
4456 type(pinf_type) , intent(in) :: ub
4457 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4458 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4459 real(RKC) :: quadGK
4460 end function
4461#endif
4462
4463#if RK1_ENABLED
4464 module function getQuadGKXX_II_RK1(getFunc, lb, ub, nodeK, weightK, weightG, abserr, intAbsFunc, smoothness) result(quadGK)
4465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4466 !DEC$ ATTRIBUTES DLLEXPORT :: getQuadGKXX_II_RK1
4467#endif
4468 use pm_kind, only: RKC => RK1
4469 procedure(real(RKC)) :: getFunc
4470 type(ninf_type) , intent(in) :: lb
4471 type(pinf_type) , intent(in) :: ub
4472 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
4473 real(RKC) , intent(out) :: abserr, intAbsFunc, smoothness
4474 real(RKC) :: quadGK
4475 end function
4476#endif
4477
4478 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4479
4480 end interface
4481
4482!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4483
4501 integer(IK) , parameter :: MAXLEN_EPSTAB = 50_IK
4502
4531 end type
4532
4551 type(weps_type) , parameter :: weps = weps_type()
4552#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4553 !DIR$ ATTRIBUTES DLLEXPORT :: weps
4554#endif
4555
4556!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4557
4600
4601 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4602
4603#if RK5_ENABLED
4604 pure module subroutine setSeqLimEps_RK5(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4606 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK5
4607#endif
4608 use pm_kind, only: RKC => RK5
4609 integer(IK) , intent(inout) :: inew, ical
4610 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4611 real(RKC) , intent(out) :: seqlim, abserr
4612 end subroutine
4613#endif
4614
4615#if RK4_ENABLED
4616 pure module subroutine setSeqLimEps_RK4(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4618 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK4
4619#endif
4620 use pm_kind, only: RKC => RK4
4621 integer(IK) , intent(inout) :: inew, ical
4622 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4623 real(RKC) , intent(out) :: seqlim, abserr
4624 end subroutine
4625#endif
4626
4627#if RK3_ENABLED
4628 pure module subroutine setSeqLimEps_RK3(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4630 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK3
4631#endif
4632 use pm_kind, only: RKC => RK3
4633 integer(IK) , intent(inout) :: inew, ical
4634 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4635 real(RKC) , intent(out) :: seqlim, abserr
4636 end subroutine
4637#endif
4638
4639#if RK2_ENABLED
4640 pure module subroutine setSeqLimEps_RK2(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4642 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK2
4643#endif
4644 use pm_kind, only: RKC => RK2
4645 integer(IK) , intent(inout) :: inew, ical
4646 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4647 real(RKC) , intent(out) :: seqlim, abserr
4648 end subroutine
4649#endif
4650
4651#if RK1_ENABLED
4652 pure module subroutine setSeqLimEps_RK1(inew, ical, EpsTable, SeqLims, seqlim, abserr)
4653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4654 !DEC$ ATTRIBUTES DLLEXPORT :: setSeqLimEps_RK1
4655#endif
4656 use pm_kind, only: RKC => RK1
4657 integer(IK) , intent(inout) :: inew, ical
4658 real(RKC) , intent(inout) :: EpsTable(MAXLEN_EPSTAB + 2), SeqLims(3)
4659 real(RKC) , intent(out) :: seqlim, abserr
4660 end subroutine
4661#endif
4662
4663 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4664
4665 end interface
4666
4667!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4668
4713
4714 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4715
4716#if RK5_ENABLED
4717 PURE module subroutine setErrSorted_RK5(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4719 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK5
4720#endif
4721 use pm_kind, only: RKC => RK5
4722 integer(IK) , intent(in) :: nintmax
4723 real(RKC) , intent(in) :: sinfoErr(:)
4724 integer(IK) , intent(inout) , contiguous :: sindex(:)
4725 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4726 real(RKC) , intent(out) :: maxErrVal
4727 end subroutine
4728#endif
4729
4730#if RK4_ENABLED
4731 PURE module subroutine setErrSorted_RK4(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4733 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK4
4734#endif
4735 use pm_kind, only: RKC => RK4
4736 integer(IK) , intent(in) :: nintmax
4737 real(RKC) , intent(in) :: sinfoErr(:)
4738 integer(IK) , intent(inout) , contiguous :: sindex(:)
4739 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4740 real(RKC) , intent(out) :: maxErrVal
4741 end subroutine
4742#endif
4743
4744#if RK3_ENABLED
4745 PURE module subroutine setErrSorted_RK3(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4746#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4747 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK3
4748#endif
4749 use pm_kind, only: RKC => RK3
4750 integer(IK) , intent(in) :: nintmax
4751 real(RKC) , intent(in) :: sinfoErr(:)
4752 integer(IK) , intent(inout) , contiguous :: sindex(:)
4753 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4754 real(RKC) , intent(out) :: maxErrVal
4755 end subroutine
4756#endif
4757
4758#if RK2_ENABLED
4759 PURE module subroutine setErrSorted_RK2(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4761 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK2
4762#endif
4763 use pm_kind, only: RKC => RK2
4764 integer(IK) , intent(in) :: nintmax
4765 real(RKC) , intent(in) :: sinfoErr(:)
4766 integer(IK) , intent(inout) , contiguous :: sindex(:)
4767 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4768 real(RKC) , intent(out) :: maxErrVal
4769 end subroutine
4770#endif
4771
4772#if RK1_ENABLED
4773 PURE module subroutine setErrSorted_RK1(nintmax, sinfoErr, sindex, nrmax, maxErrLoc, maxErrVal)
4774#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4775 !DEC$ ATTRIBUTES DLLEXPORT :: setErrSorted_RK1
4776#endif
4777 use pm_kind, only: RKC => RK1
4778 integer(IK) , intent(in) :: nintmax
4779 real(RKC) , intent(in) :: sinfoErr(:)
4780 integer(IK) , intent(inout) , contiguous :: sindex(:)
4781 integer(IK) , intent(inout) :: nrmax, maxErrLoc
4782 real(RKC) , intent(out) :: maxErrVal
4783 end subroutine
4784#endif
4785
4786 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4787
4788 end interface
4789
4790!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4791
4839
4840 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4841
4842#if RK5_ENABLED
4843 pure module subroutine setChebExpan_RK5(func, cheb12, cheb24)
4844#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4845 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK5
4846#endif
4847 use pm_kind, only: RKC => RK5
4848 real(RKC) , intent(inout) :: func(25)
4849 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4850 end subroutine
4851#endif
4852
4853#if RK4_ENABLED
4854 pure module subroutine setChebExpan_RK4(func, cheb12, cheb24)
4855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4856 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK4
4857#endif
4858 use pm_kind, only: RKC => RK4
4859 real(RKC) , intent(inout) :: func(25)
4860 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4861 end subroutine
4862#endif
4863
4864#if RK3_ENABLED
4865 pure module subroutine setChebExpan_RK3(func, cheb12, cheb24)
4866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4867 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK3
4868#endif
4869 use pm_kind, only: RKC => RK3
4870 real(RKC) , intent(inout) :: func(25)
4871 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4872 end subroutine
4873#endif
4874
4875#if RK2_ENABLED
4876 pure module subroutine setChebExpan_RK2(func, cheb12, cheb24)
4877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4878 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK2
4879#endif
4880 use pm_kind, only: RKC => RK2
4881 real(RKC) , intent(inout) :: func(25)
4882 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4883 end subroutine
4884#endif
4885
4886#if RK1_ENABLED
4887 pure module subroutine setChebExpan_RK1(func, cheb12, cheb24)
4888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4889 !DEC$ ATTRIBUTES DLLEXPORT :: setChebExpan_RK1
4890#endif
4891 use pm_kind, only: RKC => RK1
4892 real(RKC) , intent(inout) :: func(25)
4893 real(RKC) , intent(out) :: cheb12(13), cheb24(25)
4894 end subroutine
4895#endif
4896
4897 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4898
4899 end interface
4900
4901!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4902
4990
4991 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4992
4993#if RK5_ENABLED
4994 module function isFailedQuadQAGD_RK5(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
4995#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4996 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK5
4997#endif
4998 use pm_kind, only: RKC => RK5
4999 procedure(real(RKC)) :: getFunc
5000 real(RKC) , intent(in) :: lb, ub
5001 real(RKC) , intent(out) :: integral
5002 real(RKC) , intent(out) , optional :: abserr
5003 real(RKC) , intent(in) , optional :: abstol
5004 real(RKC) , intent(in) , optional :: reltol
5005 integer(IK) , intent(out) , optional :: neval
5006 integer(IK) , intent(out) , optional :: nint
5007 character(*, SK) , intent(out) , optional :: msg
5008 logical(LK) :: failed
5009 end function
5010#endif
5011
5012#if RK4_ENABLED
5013 module function isFailedQuadQAGD_RK4(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5015 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK4
5016#endif
5017 use pm_kind, only: RKC => RK4
5018 procedure(real(RKC)) :: getFunc
5019 real(RKC) , intent(in) :: lb, ub
5020 real(RKC) , intent(out) :: integral
5021 real(RKC) , intent(out) , optional :: abserr
5022 real(RKC) , intent(in) , optional :: abstol
5023 real(RKC) , intent(in) , optional :: reltol
5024 integer(IK) , intent(out) , optional :: neval
5025 integer(IK) , intent(out) , optional :: nint
5026 character(*, SK) , intent(out) , optional :: msg
5027 logical(LK) :: failed
5028 end function
5029#endif
5030
5031#if RK3_ENABLED
5032 module function isFailedQuadQAGD_RK3(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5034 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK3
5035#endif
5036 use pm_kind, only: RKC => RK3
5037 procedure(real(RKC)) :: getFunc
5038 real(RKC) , intent(in) :: lb, ub
5039 real(RKC) , intent(out) :: integral
5040 real(RKC) , intent(out) , optional :: abserr
5041 real(RKC) , intent(in) , optional :: abstol
5042 real(RKC) , intent(in) , optional :: reltol
5043 integer(IK) , intent(out) , optional :: neval
5044 integer(IK) , intent(out) , optional :: nint
5045 character(*, SK) , intent(out) , optional :: msg
5046 logical(LK) :: failed
5047 end function
5048#endif
5049
5050#if RK2_ENABLED
5051 module function isFailedQuadQAGD_RK2(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5053 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK2
5054#endif
5055 use pm_kind, only: RKC => RK2
5056 procedure(real(RKC)) :: getFunc
5057 real(RKC) , intent(in) :: lb, ub
5058 real(RKC) , intent(out) :: integral
5059 real(RKC) , intent(out) , optional :: abserr
5060 real(RKC) , intent(in) , optional :: abstol
5061 real(RKC) , intent(in) , optional :: reltol
5062 integer(IK) , intent(out) , optional :: neval
5063 integer(IK) , intent(out) , optional :: nint
5064 character(*, SK) , intent(out) , optional :: msg
5065 logical(LK) :: failed
5066 end function
5067#endif
5068
5069#if RK1_ENABLED
5070 module function isFailedQuadQAGD_RK1(getFunc, lb, ub, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5072 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGD_RK1
5073#endif
5074 use pm_kind, only: RKC => RK1
5075 procedure(real(RKC)) :: getFunc
5076 real(RKC) , intent(in) :: lb, ub
5077 real(RKC) , intent(out) :: integral
5078 real(RKC) , intent(out) , optional :: abserr
5079 real(RKC) , intent(in) , optional :: abstol
5080 real(RKC) , intent(in) , optional :: reltol
5081 integer(IK) , intent(out) , optional :: neval
5082 integer(IK) , intent(out) , optional :: nint
5083 character(*, SK) , intent(out) , optional :: msg
5084 logical(LK) :: failed
5085 end function
5086#endif
5087
5088 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5089
5090#if RK5_ENABLED
5091 module function isFailedQuadQAGS_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5092#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5093 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK5
5094#endif
5095 use pm_kind, only: RKC => RK5
5096 procedure(real(RKC)) :: getFunc
5097 real(RKC) , intent(in) :: lb, ub
5098 real(RKC) , intent(out) :: integral
5099 type(weps_type) , intent(in) :: help
5100 real(RKC) , intent(out) , optional :: abserr
5101 real(RKC) , intent(in) , optional :: abstol
5102 real(RKC) , intent(in) , optional :: reltol
5103 integer(IK) , intent(out) , optional :: neval
5104 integer(IK) , intent(out) , optional :: nint
5105 character(*, SK) , intent(out) , optional :: msg
5106 logical(LK) :: failed
5107 end function
5108#endif
5109
5110#if RK4_ENABLED
5111 module function isFailedQuadQAGS_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5112#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5113 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK4
5114#endif
5115 use pm_kind, only: RKC => RK4
5116 procedure(real(RKC)) :: getFunc
5117 real(RKC) , intent(in) :: lb, ub
5118 real(RKC) , intent(out) :: integral
5119 type(weps_type) , intent(in) :: help
5120 real(RKC) , intent(out) , optional :: abserr
5121 real(RKC) , intent(in) , optional :: abstol
5122 real(RKC) , intent(in) , optional :: reltol
5123 integer(IK) , intent(out) , optional :: neval
5124 integer(IK) , intent(out) , optional :: nint
5125 character(*, SK) , intent(out) , optional :: msg
5126 logical(LK) :: failed
5127 end function
5128#endif
5129
5130#if RK3_ENABLED
5131 module function isFailedQuadQAGS_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5133 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK3
5134#endif
5135 use pm_kind, only: RKC => RK3
5136 procedure(real(RKC)) :: getFunc
5137 real(RKC) , intent(in) :: lb, ub
5138 real(RKC) , intent(out) :: integral
5139 type(weps_type) , intent(in) :: help
5140 real(RKC) , intent(out) , optional :: abserr
5141 real(RKC) , intent(in) , optional :: abstol
5142 real(RKC) , intent(in) , optional :: reltol
5143 integer(IK) , intent(out) , optional :: neval
5144 integer(IK) , intent(out) , optional :: nint
5145 character(*, SK) , intent(out) , optional :: msg
5146 logical(LK) :: failed
5147 end function
5148#endif
5149
5150#if RK2_ENABLED
5151 module function isFailedQuadQAGS_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5153 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK2
5154#endif
5155 use pm_kind, only: RKC => RK2
5156 procedure(real(RKC)) :: getFunc
5157 real(RKC) , intent(in) :: lb, ub
5158 real(RKC) , intent(out) :: integral
5159 type(weps_type) , intent(in) :: help
5160 real(RKC) , intent(out) , optional :: abserr
5161 real(RKC) , intent(in) , optional :: abstol
5162 real(RKC) , intent(in) , optional :: reltol
5163 integer(IK) , intent(out) , optional :: neval
5164 integer(IK) , intent(out) , optional :: nint
5165 character(*, SK) , intent(out) , optional :: msg
5166 logical(LK) :: failed
5167 end function
5168#endif
5169
5170#if RK1_ENABLED
5171 module function isFailedQuadQAGS_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5172#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5173 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGS_RK1
5174#endif
5175 use pm_kind, only: RKC => RK1
5176 procedure(real(RKC)) :: getFunc
5177 real(RKC) , intent(in) :: lb, ub
5178 real(RKC) , intent(out) :: integral
5179 type(weps_type) , intent(in) :: help
5180 real(RKC) , intent(out) , optional :: abserr
5181 real(RKC) , intent(in) , optional :: abstol
5182 real(RKC) , intent(in) , optional :: reltol
5183 integer(IK) , intent(out) , optional :: neval
5184 integer(IK) , intent(out) , optional :: nint
5185 character(*, SK) , intent(out) , optional :: msg
5186 logical(LK) :: failed
5187 end function
5188#endif
5189
5190 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5191
5192#if RK5_ENABLED
5193 module function isFailedQuadQAGP_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5194#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5195 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK5
5196#endif
5197 use pm_kind, only: RKC => RK5
5198 procedure(real(RKC)) :: getFunc
5199 real(RKC) , intent(in) :: lb, ub
5200 real(RKC) , intent(out) :: integral
5201 real(RKC) , intent(in) , contiguous :: help(:)
5202 real(RKC) , intent(out) , optional :: abserr
5203 real(RKC) , intent(in) , optional :: abstol
5204 real(RKC) , intent(in) , optional :: reltol
5205 integer(IK) , intent(out) , optional :: neval
5206 integer(IK) , intent(out) , optional :: nint
5207 character(*, SK) , intent(out) , optional :: msg
5208 logical(LK) :: failed
5209 end function
5210#endif
5211
5212#if RK4_ENABLED
5213 module function isFailedQuadQAGP_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5215 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK4
5216#endif
5217 use pm_kind, only: RKC => RK4
5218 procedure(real(RKC)) :: getFunc
5219 real(RKC) , intent(in) :: lb, ub
5220 real(RKC) , intent(out) :: integral
5221 real(RKC) , intent(in) , contiguous :: help(:)
5222 real(RKC) , intent(out) , optional :: abserr
5223 real(RKC) , intent(in) , optional :: abstol
5224 real(RKC) , intent(in) , optional :: reltol
5225 integer(IK) , intent(out) , optional :: neval
5226 integer(IK) , intent(out) , optional :: nint
5227 character(*, SK) , intent(out) , optional :: msg
5228 logical(LK) :: failed
5229 end function
5230#endif
5231
5232#if RK3_ENABLED
5233 module function isFailedQuadQAGP_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5235 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK3
5236#endif
5237 use pm_kind, only: RKC => RK3
5238 procedure(real(RKC)) :: getFunc
5239 real(RKC) , intent(in) :: lb, ub
5240 real(RKC) , intent(out) :: integral
5241 real(RKC) , intent(in) , contiguous :: help(:)
5242 real(RKC) , intent(out) , optional :: abserr
5243 real(RKC) , intent(in) , optional :: abstol
5244 real(RKC) , intent(in) , optional :: reltol
5245 integer(IK) , intent(out) , optional :: neval
5246 integer(IK) , intent(out) , optional :: nint
5247 character(*, SK) , intent(out) , optional :: msg
5248 logical(LK) :: failed
5249 end function
5250#endif
5251
5252#if RK2_ENABLED
5253 module function isFailedQuadQAGP_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5255 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK2
5256#endif
5257 use pm_kind, only: RKC => RK2
5258 procedure(real(RKC)) :: getFunc
5259 real(RKC) , intent(in) :: lb, ub
5260 real(RKC) , intent(out) :: integral
5261 real(RKC) , intent(in) , contiguous :: help(:)
5262 real(RKC) , intent(out) , optional :: abserr
5263 real(RKC) , intent(in) , optional :: abstol
5264 real(RKC) , intent(in) , optional :: reltol
5265 integer(IK) , intent(out) , optional :: neval
5266 integer(IK) , intent(out) , optional :: nint
5267 character(*, SK) , intent(out) , optional :: msg
5268 logical(LK) :: failed
5269 end function
5270#endif
5271
5272#if RK1_ENABLED
5273 module function isFailedQuadQAGP_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5275 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAGP_RK1
5276#endif
5277 use pm_kind, only: RKC => RK1
5278 procedure(real(RKC)) :: getFunc
5279 real(RKC) , intent(in) :: lb, ub
5280 real(RKC) , intent(out) :: integral
5281 real(RKC) , intent(in) , contiguous :: help(:)
5282 real(RKC) , intent(out) , optional :: abserr
5283 real(RKC) , intent(in) , optional :: abstol
5284 real(RKC) , intent(in) , optional :: reltol
5285 integer(IK) , intent(out) , optional :: neval
5286 integer(IK) , intent(out) , optional :: nint
5287 character(*, SK) , intent(out) , optional :: msg
5288 logical(LK) :: failed
5289 end function
5290#endif
5291
5292 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5293
5294#if RK5_ENABLED
5295 module function isFailedQuadQAWC_RK5(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5296#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5297 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK5
5298#endif
5299 use pm_kind, only: RKC => RK5
5300 procedure(real(RKC)) :: getFunc
5301 real(RKC) , intent(in) :: lb, ub
5302 real(RKC) , intent(out) :: integral
5303 type(wcauchy_type) , intent(in) :: help
5304 real(RKC) , intent(out) , optional :: abserr
5305 real(RKC) , intent(in) , optional :: abstol
5306 real(RKC) , intent(in) , optional :: reltol
5307 integer(IK) , intent(out) , optional :: neval
5308 integer(IK) , intent(out) , optional :: nint
5309 character(*, SK) , intent(out) , optional :: msg
5310 logical(LK) :: failed
5311 end function
5312#endif
5313
5314#if RK4_ENABLED
5315 module function isFailedQuadQAWC_RK4(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5316#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5317 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK4
5318#endif
5319 use pm_kind, only: RKC => RK4
5320 procedure(real(RKC)) :: getFunc
5321 real(RKC) , intent(in) :: lb, ub
5322 real(RKC) , intent(out) :: integral
5323 type(wcauchy_type) , intent(in) :: help
5324 real(RKC) , intent(out) , optional :: abserr
5325 real(RKC) , intent(in) , optional :: abstol
5326 real(RKC) , intent(in) , optional :: reltol
5327 integer(IK) , intent(out) , optional :: neval
5328 integer(IK) , intent(out) , optional :: nint
5329 character(*, SK) , intent(out) , optional :: msg
5330 logical(LK) :: failed
5331 end function
5332#endif
5333
5334#if RK3_ENABLED
5335 module function isFailedQuadQAWC_RK3(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5337 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK3
5338#endif
5339 use pm_kind, only: RKC => RK3
5340 procedure(real(RKC)) :: getFunc
5341 real(RKC) , intent(in) :: lb, ub
5342 real(RKC) , intent(out) :: integral
5343 type(wcauchy_type) , intent(in) :: help
5344 real(RKC) , intent(out) , optional :: abserr
5345 real(RKC) , intent(in) , optional :: abstol
5346 real(RKC) , intent(in) , optional :: reltol
5347 integer(IK) , intent(out) , optional :: neval
5348 integer(IK) , intent(out) , optional :: nint
5349 character(*, SK) , intent(out) , optional :: msg
5350 logical(LK) :: failed
5351 end function
5352#endif
5353
5354#if RK2_ENABLED
5355 module function isFailedQuadQAWC_RK2(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5357 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK2
5358#endif
5359 use pm_kind, only: RKC => RK2
5360 procedure(real(RKC)) :: getFunc
5361 real(RKC) , intent(in) :: lb, ub
5362 real(RKC) , intent(out) :: integral
5363 type(wcauchy_type) , intent(in) :: help
5364 real(RKC) , intent(out) , optional :: abserr
5365 real(RKC) , intent(in) , optional :: abstol
5366 real(RKC) , intent(in) , optional :: reltol
5367 integer(IK) , intent(out) , optional :: neval
5368 integer(IK) , intent(out) , optional :: nint
5369 character(*, SK) , intent(out) , optional :: msg
5370 logical(LK) :: failed
5371 end function
5372#endif
5373
5374#if RK1_ENABLED
5375 module function isFailedQuadQAWC_RK1(getFunc, lb, ub, help, integral, abserr, abstol, reltol, neval, nint, msg) result(failed)
5376#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5377 !DEC$ ATTRIBUTES DLLEXPORT :: isFailedQuadQAWC_RK1
5378#endif
5379 use pm_kind, only: RKC => RK1
5380 procedure(real(RKC)) :: getFunc
5381 real(RKC) , intent(in) :: lb, ub
5382 real(RKC) , intent(out) :: integral
5383 type(wcauchy_type) , intent(in) :: help
5384 real(RKC) , intent(out) , optional :: abserr
5385 real(RKC) , intent(in) , optional :: abstol
5386 real(RKC) , intent(in) , optional :: reltol
5387 integer(IK) , intent(out) , optional :: neval
5388 integer(IK) , intent(out) , optional :: nint
5389 character(*, SK) , intent(out) , optional :: msg
5390 logical(LK) :: failed
5391 end function
5392#endif
5393
5394 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5395
5396 end interface
5397
5398!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5399
5636
5637!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5638
5639 ! QAGD_GK15
5640
5641 interface getQuadErr
5642
5643 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5644
5645#if RK5_ENABLED
5646 module function QAGD_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5648 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK5
5649#endif
5650 use pm_kind, only: RKC => RK5
5651 procedure(real(RKC)) :: getFunc
5652 real(RKC) , intent(in) :: lb
5653 real(RKC) , intent(in) :: ub
5654 real(RKC) , intent(in) :: abstol
5655 real(RKC) , intent(in) :: reltol
5656 type(GK15_type) , intent(in) :: qrule
5657 real(RKC) , intent(out) :: integral, abserr
5658 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5659 integer(IK) , intent(out) , contiguous :: sindex(:)
5660 integer(IK) , intent(out) :: neval
5661 integer(IK) , intent(out) :: nint
5662 integer(IK) :: err
5663 end function
5664#endif
5665
5666#if RK4_ENABLED
5667 module function QAGD_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5669 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK4
5670#endif
5671 use pm_kind, only: RKC => RK4
5672 procedure(real(RKC)) :: getFunc
5673 real(RKC) , intent(in) :: lb
5674 real(RKC) , intent(in) :: ub
5675 real(RKC) , intent(in) :: abstol
5676 real(RKC) , intent(in) :: reltol
5677 type(GK15_type) , intent(in) :: qrule
5678 real(RKC) , intent(out) :: integral, abserr
5679 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5680 integer(IK) , intent(out) , contiguous :: sindex(:)
5681 integer(IK) , intent(out) :: neval
5682 integer(IK) , intent(out) :: nint
5683 integer(IK) :: err
5684 end function
5685#endif
5686
5687#if RK3_ENABLED
5688 module function QAGD_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5690 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK3
5691#endif
5692 use pm_kind, only: RKC => RK3
5693 procedure(real(RKC)) :: getFunc
5694 real(RKC) , intent(in) :: lb
5695 real(RKC) , intent(in) :: ub
5696 real(RKC) , intent(in) :: abstol
5697 real(RKC) , intent(in) :: reltol
5698 type(GK15_type) , intent(in) :: qrule
5699 real(RKC) , intent(out) :: integral, abserr
5700 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5701 integer(IK) , intent(out) , contiguous :: sindex(:)
5702 integer(IK) , intent(out) :: neval
5703 integer(IK) , intent(out) :: nint
5704 integer(IK) :: err
5705 end function
5706#endif
5707
5708#if RK2_ENABLED
5709 module function QAGD_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5711 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK2
5712#endif
5713 use pm_kind, only: RKC => RK2
5714 procedure(real(RKC)) :: getFunc
5715 real(RKC) , intent(in) :: lb
5716 real(RKC) , intent(in) :: ub
5717 real(RKC) , intent(in) :: abstol
5718 real(RKC) , intent(in) :: reltol
5719 type(GK15_type) , intent(in) :: qrule
5720 real(RKC) , intent(out) :: integral, abserr
5721 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5722 integer(IK) , intent(out) , contiguous :: sindex(:)
5723 integer(IK) , intent(out) :: neval
5724 integer(IK) , intent(out) :: nint
5725 integer(IK) :: err
5726 end function
5727#endif
5728
5729#if RK1_ENABLED
5730 module function QAGD_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5732 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FF_RK1
5733#endif
5734 use pm_kind, only: RKC => RK1
5735 procedure(real(RKC)) :: getFunc
5736 real(RKC) , intent(in) :: lb
5737 real(RKC) , intent(in) :: ub
5738 real(RKC) , intent(in) :: abstol
5739 real(RKC) , intent(in) :: reltol
5740 type(GK15_type) , intent(in) :: qrule
5741 real(RKC) , intent(out) :: integral, abserr
5742 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5743 integer(IK) , intent(out) , contiguous :: sindex(:)
5744 integer(IK) , intent(out) :: neval
5745 integer(IK) , intent(out) :: nint
5746 integer(IK) :: err
5747 end function
5748#endif
5749
5750 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5751
5752#if RK5_ENABLED
5753 module function QAGD_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5755 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK5
5756#endif
5757 use pm_kind, only: RKC => RK5
5758 procedure(real(RKC)) :: getFunc
5759 real(RKC) , intent(in) :: lb
5760 type(pinf_type) , intent(in) :: ub
5761 real(RKC) , intent(in) :: abstol
5762 real(RKC) , intent(in) :: reltol
5763 type(GK15_type) , intent(in) :: qrule
5764 real(RKC) , intent(out) :: integral, abserr
5765 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5766 integer(IK) , intent(out) , contiguous :: sindex(:)
5767 integer(IK) , intent(out) :: neval
5768 integer(IK) , intent(out) :: nint
5769 integer(IK) :: err
5770 end function
5771#endif
5772
5773#if RK4_ENABLED
5774 module function QAGD_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5776 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK4
5777#endif
5778 use pm_kind, only: RKC => RK4
5779 procedure(real(RKC)) :: getFunc
5780 real(RKC) , intent(in) :: lb
5781 type(pinf_type) , intent(in) :: ub
5782 real(RKC) , intent(in) :: abstol
5783 real(RKC) , intent(in) :: reltol
5784 type(GK15_type) , intent(in) :: qrule
5785 real(RKC) , intent(out) :: integral, abserr
5786 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5787 integer(IK) , intent(out) , contiguous :: sindex(:)
5788 integer(IK) , intent(out) :: neval
5789 integer(IK) , intent(out) :: nint
5790 integer(IK) :: err
5791 end function
5792#endif
5793
5794#if RK3_ENABLED
5795 module function QAGD_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5797 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK3
5798#endif
5799 use pm_kind, only: RKC => RK3
5800 procedure(real(RKC)) :: getFunc
5801 real(RKC) , intent(in) :: lb
5802 type(pinf_type) , intent(in) :: ub
5803 real(RKC) , intent(in) :: abstol
5804 real(RKC) , intent(in) :: reltol
5805 type(GK15_type) , intent(in) :: qrule
5806 real(RKC) , intent(out) :: integral, abserr
5807 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5808 integer(IK) , intent(out) , contiguous :: sindex(:)
5809 integer(IK) , intent(out) :: neval
5810 integer(IK) , intent(out) :: nint
5811 integer(IK) :: err
5812 end function
5813#endif
5814
5815#if RK2_ENABLED
5816 module function QAGD_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5818 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK2
5819#endif
5820 use pm_kind, only: RKC => RK2
5821 procedure(real(RKC)) :: getFunc
5822 real(RKC) , intent(in) :: lb
5823 type(pinf_type) , intent(in) :: ub
5824 real(RKC) , intent(in) :: abstol
5825 real(RKC) , intent(in) :: reltol
5826 type(GK15_type) , intent(in) :: qrule
5827 real(RKC) , intent(out) :: integral, abserr
5828 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5829 integer(IK) , intent(out) , contiguous :: sindex(:)
5830 integer(IK) , intent(out) :: neval
5831 integer(IK) , intent(out) :: nint
5832 integer(IK) :: err
5833 end function
5834#endif
5835
5836#if RK1_ENABLED
5837 module function QAGD_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5839 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_FI_RK1
5840#endif
5841 use pm_kind, only: RKC => RK1
5842 procedure(real(RKC)) :: getFunc
5843 real(RKC) , intent(in) :: lb
5844 type(pinf_type) , intent(in) :: ub
5845 real(RKC) , intent(in) :: abstol
5846 real(RKC) , intent(in) :: reltol
5847 type(GK15_type) , intent(in) :: qrule
5848 real(RKC) , intent(out) :: integral, abserr
5849 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5850 integer(IK) , intent(out) , contiguous :: sindex(:)
5851 integer(IK) , intent(out) :: neval
5852 integer(IK) , intent(out) :: nint
5853 integer(IK) :: err
5854 end function
5855#endif
5856
5857 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5858
5859#if RK5_ENABLED
5860 module function QAGD_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5862 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK5
5863#endif
5864 use pm_kind, only: RKC => RK5
5865 procedure(real(RKC)) :: getFunc
5866 type(ninf_type) , intent(in) :: lb
5867 real(RKC) , intent(in) :: ub
5868 real(RKC) , intent(in) :: abstol
5869 real(RKC) , intent(in) :: reltol
5870 type(GK15_type) , intent(in) :: qrule
5871 real(RKC) , intent(out) :: integral, abserr
5872 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5873 integer(IK) , intent(out) , contiguous :: sindex(:)
5874 integer(IK) , intent(out) :: neval
5875 integer(IK) , intent(out) :: nint
5876 integer(IK) :: err
5877 end function
5878#endif
5879
5880#if RK4_ENABLED
5881 module function QAGD_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5883 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK4
5884#endif
5885 use pm_kind, only: RKC => RK4
5886 procedure(real(RKC)) :: getFunc
5887 type(ninf_type) , intent(in) :: lb
5888 real(RKC) , intent(in) :: ub
5889 real(RKC) , intent(in) :: abstol
5890 real(RKC) , intent(in) :: reltol
5891 type(GK15_type) , intent(in) :: qrule
5892 real(RKC) , intent(out) :: integral, abserr
5893 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5894 integer(IK) , intent(out) , contiguous :: sindex(:)
5895 integer(IK) , intent(out) :: neval
5896 integer(IK) , intent(out) :: nint
5897 integer(IK) :: err
5898 end function
5899#endif
5900
5901#if RK3_ENABLED
5902 module function QAGD_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5904 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK3
5905#endif
5906 use pm_kind, only: RKC => RK3
5907 procedure(real(RKC)) :: getFunc
5908 type(ninf_type) , intent(in) :: lb
5909 real(RKC) , intent(in) :: ub
5910 real(RKC) , intent(in) :: abstol
5911 real(RKC) , intent(in) :: reltol
5912 type(GK15_type) , intent(in) :: qrule
5913 real(RKC) , intent(out) :: integral, abserr
5914 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5915 integer(IK) , intent(out) , contiguous :: sindex(:)
5916 integer(IK) , intent(out) :: neval
5917 integer(IK) , intent(out) :: nint
5918 integer(IK) :: err
5919 end function
5920#endif
5921
5922#if RK2_ENABLED
5923 module function QAGD_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5925 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK2
5926#endif
5927 use pm_kind, only: RKC => RK2
5928 procedure(real(RKC)) :: getFunc
5929 type(ninf_type) , intent(in) :: lb
5930 real(RKC) , intent(in) :: ub
5931 real(RKC) , intent(in) :: abstol
5932 real(RKC) , intent(in) :: reltol
5933 type(GK15_type) , intent(in) :: qrule
5934 real(RKC) , intent(out) :: integral, abserr
5935 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5936 integer(IK) , intent(out) , contiguous :: sindex(:)
5937 integer(IK) , intent(out) :: neval
5938 integer(IK) , intent(out) :: nint
5939 integer(IK) :: err
5940 end function
5941#endif
5942
5943#if RK1_ENABLED
5944 module function QAGD_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5945#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5946 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_IF_RK1
5947#endif
5948 use pm_kind, only: RKC => RK1
5949 procedure(real(RKC)) :: getFunc
5950 type(ninf_type) , intent(in) :: lb
5951 real(RKC) , intent(in) :: ub
5952 real(RKC) , intent(in) :: abstol
5953 real(RKC) , intent(in) :: reltol
5954 type(GK15_type) , intent(in) :: qrule
5955 real(RKC) , intent(out) :: integral, abserr
5956 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5957 integer(IK) , intent(out) , contiguous :: sindex(:)
5958 integer(IK) , intent(out) :: neval
5959 integer(IK) , intent(out) :: nint
5960 integer(IK) :: err
5961 end function
5962#endif
5963
5964 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5965
5966#if RK5_ENABLED
5967 module function QAGD_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5969 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK5
5970#endif
5971 use pm_kind, only: RKC => RK5
5972 procedure(real(RKC)) :: getFunc
5973 type(ninf_type) , intent(in) :: lb
5974 type(pinf_type) , intent(in) :: ub
5975 real(RKC) , intent(in) :: abstol
5976 real(RKC) , intent(in) :: reltol
5977 type(GK15_type) , intent(in) :: qrule
5978 real(RKC) , intent(out) :: integral, abserr
5979 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
5980 integer(IK) , intent(out) , contiguous :: sindex(:)
5981 integer(IK) , intent(out) :: neval
5982 integer(IK) , intent(out) :: nint
5983 integer(IK) :: err
5984 end function
5985#endif
5986
5987#if RK4_ENABLED
5988 module function QAGD_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
5989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5990 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK4
5991#endif
5992 use pm_kind, only: RKC => RK4
5993 procedure(real(RKC)) :: getFunc
5994 type(ninf_type) , intent(in) :: lb
5995 type(pinf_type) , intent(in) :: ub
5996 real(RKC) , intent(in) :: abstol
5997 real(RKC) , intent(in) :: reltol
5998 type(GK15_type) , intent(in) :: qrule
5999 real(RKC) , intent(out) :: integral, abserr
6000 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6001 integer(IK) , intent(out) , contiguous :: sindex(:)
6002 integer(IK) , intent(out) :: neval
6003 integer(IK) , intent(out) :: nint
6004 integer(IK) :: err
6005 end function
6006#endif
6007
6008#if RK3_ENABLED
6009 module function QAGD_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6010#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6011 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK3
6012#endif
6013 use pm_kind, only: RKC => RK3
6014 procedure(real(RKC)) :: getFunc
6015 type(ninf_type) , intent(in) :: lb
6016 type(pinf_type) , intent(in) :: ub
6017 real(RKC) , intent(in) :: abstol
6018 real(RKC) , intent(in) :: reltol
6019 type(GK15_type) , intent(in) :: qrule
6020 real(RKC) , intent(out) :: integral, abserr
6021 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6022 integer(IK) , intent(out) , contiguous :: sindex(:)
6023 integer(IK) , intent(out) :: neval
6024 integer(IK) , intent(out) :: nint
6025 integer(IK) :: err
6026 end function
6027#endif
6028
6029#if RK2_ENABLED
6030 module function QAGD_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6032 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK2
6033#endif
6034 use pm_kind, only: RKC => RK2
6035 procedure(real(RKC)) :: getFunc
6036 type(ninf_type) , intent(in) :: lb
6037 type(pinf_type) , intent(in) :: ub
6038 real(RKC) , intent(in) :: abstol
6039 real(RKC) , intent(in) :: reltol
6040 type(GK15_type) , intent(in) :: qrule
6041 real(RKC) , intent(out) :: integral, abserr
6042 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6043 integer(IK) , intent(out) , contiguous :: sindex(:)
6044 integer(IK) , intent(out) :: neval
6045 integer(IK) , intent(out) :: nint
6046 integer(IK) :: err
6047 end function
6048#endif
6049
6050#if RK1_ENABLED
6051 module function QAGD_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6052#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6053 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK15_II_RK1
6054#endif
6055 use pm_kind, only: RKC => RK1
6056 procedure(real(RKC)) :: getFunc
6057 type(ninf_type) , intent(in) :: lb
6058 type(pinf_type) , intent(in) :: ub
6059 real(RKC) , intent(in) :: abstol
6060 real(RKC) , intent(in) :: reltol
6061 type(GK15_type) , intent(in) :: qrule
6062 real(RKC) , intent(out) :: integral, abserr
6063 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6064 integer(IK) , intent(out) , contiguous :: sindex(:)
6065 integer(IK) , intent(out) :: neval
6066 integer(IK) , intent(out) :: nint
6067 integer(IK) :: err
6068 end function
6069#endif
6070
6071 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6072
6073 end interface
6074
6075 ! QAGD_GK21
6076
6077 interface getQuadErr
6078
6079 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6080
6081#if RK5_ENABLED
6082 module function QAGD_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6084 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK5
6085#endif
6086 use pm_kind, only: RKC => RK5
6087 procedure(real(RKC)) :: getFunc
6088 real(RKC) , intent(in) :: lb
6089 real(RKC) , intent(in) :: ub
6090 real(RKC) , intent(in) :: abstol
6091 real(RKC) , intent(in) :: reltol
6092 type(GK21_type) , intent(in) :: qrule
6093 real(RKC) , intent(out) :: integral, abserr
6094 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6095 integer(IK) , intent(out) , contiguous :: sindex(:)
6096 integer(IK) , intent(out) :: neval
6097 integer(IK) , intent(out) :: nint
6098 integer(IK) :: err
6099 end function
6100#endif
6101
6102#if RK4_ENABLED
6103 module function QAGD_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6105 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK4
6106#endif
6107 use pm_kind, only: RKC => RK4
6108 procedure(real(RKC)) :: getFunc
6109 real(RKC) , intent(in) :: lb
6110 real(RKC) , intent(in) :: ub
6111 real(RKC) , intent(in) :: abstol
6112 real(RKC) , intent(in) :: reltol
6113 type(GK21_type) , intent(in) :: qrule
6114 real(RKC) , intent(out) :: integral, abserr
6115 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6116 integer(IK) , intent(out) , contiguous :: sindex(:)
6117 integer(IK) , intent(out) :: neval
6118 integer(IK) , intent(out) :: nint
6119 integer(IK) :: err
6120 end function
6121#endif
6122
6123#if RK3_ENABLED
6124 module function QAGD_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6126 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK3
6127#endif
6128 use pm_kind, only: RKC => RK3
6129 procedure(real(RKC)) :: getFunc
6130 real(RKC) , intent(in) :: lb
6131 real(RKC) , intent(in) :: ub
6132 real(RKC) , intent(in) :: abstol
6133 real(RKC) , intent(in) :: reltol
6134 type(GK21_type) , intent(in) :: qrule
6135 real(RKC) , intent(out) :: integral, abserr
6136 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6137 integer(IK) , intent(out) , contiguous :: sindex(:)
6138 integer(IK) , intent(out) :: neval
6139 integer(IK) , intent(out) :: nint
6140 integer(IK) :: err
6141 end function
6142#endif
6143
6144#if RK2_ENABLED
6145 module function QAGD_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6147 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK2
6148#endif
6149 use pm_kind, only: RKC => RK2
6150 procedure(real(RKC)) :: getFunc
6151 real(RKC) , intent(in) :: lb
6152 real(RKC) , intent(in) :: ub
6153 real(RKC) , intent(in) :: abstol
6154 real(RKC) , intent(in) :: reltol
6155 type(GK21_type) , intent(in) :: qrule
6156 real(RKC) , intent(out) :: integral, abserr
6157 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6158 integer(IK) , intent(out) , contiguous :: sindex(:)
6159 integer(IK) , intent(out) :: neval
6160 integer(IK) , intent(out) :: nint
6161 integer(IK) :: err
6162 end function
6163#endif
6164
6165#if RK1_ENABLED
6166 module function QAGD_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6168 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FF_RK1
6169#endif
6170 use pm_kind, only: RKC => RK1
6171 procedure(real(RKC)) :: getFunc
6172 real(RKC) , intent(in) :: lb
6173 real(RKC) , intent(in) :: ub
6174 real(RKC) , intent(in) :: abstol
6175 real(RKC) , intent(in) :: reltol
6176 type(GK21_type) , intent(in) :: qrule
6177 real(RKC) , intent(out) :: integral, abserr
6178 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6179 integer(IK) , intent(out) , contiguous :: sindex(:)
6180 integer(IK) , intent(out) :: neval
6181 integer(IK) , intent(out) :: nint
6182 integer(IK) :: err
6183 end function
6184#endif
6185
6186 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6187
6188#if RK5_ENABLED
6189 module function QAGD_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6191 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK5
6192#endif
6193 use pm_kind, only: RKC => RK5
6194 procedure(real(RKC)) :: getFunc
6195 real(RKC) , intent(in) :: lb
6196 type(pinf_type) , intent(in) :: ub
6197 real(RKC) , intent(in) :: abstol
6198 real(RKC) , intent(in) :: reltol
6199 type(GK21_type) , intent(in) :: qrule
6200 real(RKC) , intent(out) :: integral, abserr
6201 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6202 integer(IK) , intent(out) , contiguous :: sindex(:)
6203 integer(IK) , intent(out) :: neval
6204 integer(IK) , intent(out) :: nint
6205 integer(IK) :: err
6206 end function
6207#endif
6208
6209#if RK4_ENABLED
6210 module function QAGD_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6212 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK4
6213#endif
6214 use pm_kind, only: RKC => RK4
6215 procedure(real(RKC)) :: getFunc
6216 real(RKC) , intent(in) :: lb
6217 type(pinf_type) , intent(in) :: ub
6218 real(RKC) , intent(in) :: abstol
6219 real(RKC) , intent(in) :: reltol
6220 type(GK21_type) , intent(in) :: qrule
6221 real(RKC) , intent(out) :: integral, abserr
6222 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6223 integer(IK) , intent(out) , contiguous :: sindex(:)
6224 integer(IK) , intent(out) :: neval
6225 integer(IK) , intent(out) :: nint
6226 integer(IK) :: err
6227 end function
6228#endif
6229
6230#if RK3_ENABLED
6231 module function QAGD_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6233 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK3
6234#endif
6235 use pm_kind, only: RKC => RK3
6236 procedure(real(RKC)) :: getFunc
6237 real(RKC) , intent(in) :: lb
6238 type(pinf_type) , intent(in) :: ub
6239 real(RKC) , intent(in) :: abstol
6240 real(RKC) , intent(in) :: reltol
6241 type(GK21_type) , intent(in) :: qrule
6242 real(RKC) , intent(out) :: integral, abserr
6243 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6244 integer(IK) , intent(out) , contiguous :: sindex(:)
6245 integer(IK) , intent(out) :: neval
6246 integer(IK) , intent(out) :: nint
6247 integer(IK) :: err
6248 end function
6249#endif
6250
6251#if RK2_ENABLED
6252 module function QAGD_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6254 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK2
6255#endif
6256 use pm_kind, only: RKC => RK2
6257 procedure(real(RKC)) :: getFunc
6258 real(RKC) , intent(in) :: lb
6259 type(pinf_type) , intent(in) :: ub
6260 real(RKC) , intent(in) :: abstol
6261 real(RKC) , intent(in) :: reltol
6262 type(GK21_type) , intent(in) :: qrule
6263 real(RKC) , intent(out) :: integral, abserr
6264 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6265 integer(IK) , intent(out) , contiguous :: sindex(:)
6266 integer(IK) , intent(out) :: neval
6267 integer(IK) , intent(out) :: nint
6268 integer(IK) :: err
6269 end function
6270#endif
6271
6272#if RK1_ENABLED
6273 module function QAGD_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6274#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6275 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_FI_RK1
6276#endif
6277 use pm_kind, only: RKC => RK1
6278 procedure(real(RKC)) :: getFunc
6279 real(RKC) , intent(in) :: lb
6280 type(pinf_type) , intent(in) :: ub
6281 real(RKC) , intent(in) :: abstol
6282 real(RKC) , intent(in) :: reltol
6283 type(GK21_type) , intent(in) :: qrule
6284 real(RKC) , intent(out) :: integral, abserr
6285 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6286 integer(IK) , intent(out) , contiguous :: sindex(:)
6287 integer(IK) , intent(out) :: neval
6288 integer(IK) , intent(out) :: nint
6289 integer(IK) :: err
6290 end function
6291#endif
6292
6293 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6294
6295#if RK5_ENABLED
6296 module function QAGD_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6298 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK5
6299#endif
6300 use pm_kind, only: RKC => RK5
6301 procedure(real(RKC)) :: getFunc
6302 type(ninf_type) , intent(in) :: lb
6303 real(RKC) , intent(in) :: ub
6304 real(RKC) , intent(in) :: abstol
6305 real(RKC) , intent(in) :: reltol
6306 type(GK21_type) , intent(in) :: qrule
6307 real(RKC) , intent(out) :: integral, abserr
6308 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6309 integer(IK) , intent(out) , contiguous :: sindex(:)
6310 integer(IK) , intent(out) :: neval
6311 integer(IK) , intent(out) :: nint
6312 integer(IK) :: err
6313 end function
6314#endif
6315
6316#if RK4_ENABLED
6317 module function QAGD_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6319 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK4
6320#endif
6321 use pm_kind, only: RKC => RK4
6322 procedure(real(RKC)) :: getFunc
6323 type(ninf_type) , intent(in) :: lb
6324 real(RKC) , intent(in) :: ub
6325 real(RKC) , intent(in) :: abstol
6326 real(RKC) , intent(in) :: reltol
6327 type(GK21_type) , intent(in) :: qrule
6328 real(RKC) , intent(out) :: integral, abserr
6329 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6330 integer(IK) , intent(out) , contiguous :: sindex(:)
6331 integer(IK) , intent(out) :: neval
6332 integer(IK) , intent(out) :: nint
6333 integer(IK) :: err
6334 end function
6335#endif
6336
6337#if RK3_ENABLED
6338 module function QAGD_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6340 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK3
6341#endif
6342 use pm_kind, only: RKC => RK3
6343 procedure(real(RKC)) :: getFunc
6344 type(ninf_type) , intent(in) :: lb
6345 real(RKC) , intent(in) :: ub
6346 real(RKC) , intent(in) :: abstol
6347 real(RKC) , intent(in) :: reltol
6348 type(GK21_type) , intent(in) :: qrule
6349 real(RKC) , intent(out) :: integral, abserr
6350 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6351 integer(IK) , intent(out) , contiguous :: sindex(:)
6352 integer(IK) , intent(out) :: neval
6353 integer(IK) , intent(out) :: nint
6354 integer(IK) :: err
6355 end function
6356#endif
6357
6358#if RK2_ENABLED
6359 module function QAGD_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6361 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK2
6362#endif
6363 use pm_kind, only: RKC => RK2
6364 procedure(real(RKC)) :: getFunc
6365 type(ninf_type) , intent(in) :: lb
6366 real(RKC) , intent(in) :: ub
6367 real(RKC) , intent(in) :: abstol
6368 real(RKC) , intent(in) :: reltol
6369 type(GK21_type) , intent(in) :: qrule
6370 real(RKC) , intent(out) :: integral, abserr
6371 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6372 integer(IK) , intent(out) , contiguous :: sindex(:)
6373 integer(IK) , intent(out) :: neval
6374 integer(IK) , intent(out) :: nint
6375 integer(IK) :: err
6376 end function
6377#endif
6378
6379#if RK1_ENABLED
6380 module function QAGD_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6382 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_IF_RK1
6383#endif
6384 use pm_kind, only: RKC => RK1
6385 procedure(real(RKC)) :: getFunc
6386 type(ninf_type) , intent(in) :: lb
6387 real(RKC) , intent(in) :: ub
6388 real(RKC) , intent(in) :: abstol
6389 real(RKC) , intent(in) :: reltol
6390 type(GK21_type) , intent(in) :: qrule
6391 real(RKC) , intent(out) :: integral, abserr
6392 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6393 integer(IK) , intent(out) , contiguous :: sindex(:)
6394 integer(IK) , intent(out) :: neval
6395 integer(IK) , intent(out) :: nint
6396 integer(IK) :: err
6397 end function
6398#endif
6399
6400 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6401
6402#if RK5_ENABLED
6403 module function QAGD_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6404#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6405 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK5
6406#endif
6407 use pm_kind, only: RKC => RK5
6408 procedure(real(RKC)) :: getFunc
6409 type(ninf_type) , intent(in) :: lb
6410 type(pinf_type) , intent(in) :: ub
6411 real(RKC) , intent(in) :: abstol
6412 real(RKC) , intent(in) :: reltol
6413 type(GK21_type) , intent(in) :: qrule
6414 real(RKC) , intent(out) :: integral, abserr
6415 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6416 integer(IK) , intent(out) , contiguous :: sindex(:)
6417 integer(IK) , intent(out) :: neval
6418 integer(IK) , intent(out) :: nint
6419 integer(IK) :: err
6420 end function
6421#endif
6422
6423#if RK4_ENABLED
6424 module function QAGD_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6426 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK4
6427#endif
6428 use pm_kind, only: RKC => RK4
6429 procedure(real(RKC)) :: getFunc
6430 type(ninf_type) , intent(in) :: lb
6431 type(pinf_type) , intent(in) :: ub
6432 real(RKC) , intent(in) :: abstol
6433 real(RKC) , intent(in) :: reltol
6434 type(GK21_type) , intent(in) :: qrule
6435 real(RKC) , intent(out) :: integral, abserr
6436 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6437 integer(IK) , intent(out) , contiguous :: sindex(:)
6438 integer(IK) , intent(out) :: neval
6439 integer(IK) , intent(out) :: nint
6440 integer(IK) :: err
6441 end function
6442#endif
6443
6444#if RK3_ENABLED
6445 module function QAGD_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6446#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6447 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK3
6448#endif
6449 use pm_kind, only: RKC => RK3
6450 procedure(real(RKC)) :: getFunc
6451 type(ninf_type) , intent(in) :: lb
6452 type(pinf_type) , intent(in) :: ub
6453 real(RKC) , intent(in) :: abstol
6454 real(RKC) , intent(in) :: reltol
6455 type(GK21_type) , intent(in) :: qrule
6456 real(RKC) , intent(out) :: integral, abserr
6457 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6458 integer(IK) , intent(out) , contiguous :: sindex(:)
6459 integer(IK) , intent(out) :: neval
6460 integer(IK) , intent(out) :: nint
6461 integer(IK) :: err
6462 end function
6463#endif
6464
6465#if RK2_ENABLED
6466 module function QAGD_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6467#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6468 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK2
6469#endif
6470 use pm_kind, only: RKC => RK2
6471 procedure(real(RKC)) :: getFunc
6472 type(ninf_type) , intent(in) :: lb
6473 type(pinf_type) , intent(in) :: ub
6474 real(RKC) , intent(in) :: abstol
6475 real(RKC) , intent(in) :: reltol
6476 type(GK21_type) , intent(in) :: qrule
6477 real(RKC) , intent(out) :: integral, abserr
6478 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6479 integer(IK) , intent(out) , contiguous :: sindex(:)
6480 integer(IK) , intent(out) :: neval
6481 integer(IK) , intent(out) :: nint
6482 integer(IK) :: err
6483 end function
6484#endif
6485
6486#if RK1_ENABLED
6487 module function QAGD_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6489 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK21_II_RK1
6490#endif
6491 use pm_kind, only: RKC => RK1
6492 procedure(real(RKC)) :: getFunc
6493 type(ninf_type) , intent(in) :: lb
6494 type(pinf_type) , intent(in) :: ub
6495 real(RKC) , intent(in) :: abstol
6496 real(RKC) , intent(in) :: reltol
6497 type(GK21_type) , intent(in) :: qrule
6498 real(RKC) , intent(out) :: integral, abserr
6499 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6500 integer(IK) , intent(out) , contiguous :: sindex(:)
6501 integer(IK) , intent(out) :: neval
6502 integer(IK) , intent(out) :: nint
6503 integer(IK) :: err
6504 end function
6505#endif
6506
6507 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6508
6509 end interface
6510
6511 ! QAGD_GK31
6512
6513 interface getQuadErr
6514
6515 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6516
6517#if RK5_ENABLED
6518 module function QAGD_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6520 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK5
6521#endif
6522 use pm_kind, only: RKC => RK5
6523 procedure(real(RKC)) :: getFunc
6524 real(RKC) , intent(in) :: lb
6525 real(RKC) , intent(in) :: ub
6526 real(RKC) , intent(in) :: abstol
6527 real(RKC) , intent(in) :: reltol
6528 type(GK31_type) , intent(in) :: qrule
6529 real(RKC) , intent(out) :: integral, abserr
6530 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6531 integer(IK) , intent(out) , contiguous :: sindex(:)
6532 integer(IK) , intent(out) :: neval
6533 integer(IK) , intent(out) :: nint
6534 integer(IK) :: err
6535 end function
6536#endif
6537
6538#if RK4_ENABLED
6539 module function QAGD_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6541 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK4
6542#endif
6543 use pm_kind, only: RKC => RK4
6544 procedure(real(RKC)) :: getFunc
6545 real(RKC) , intent(in) :: lb
6546 real(RKC) , intent(in) :: ub
6547 real(RKC) , intent(in) :: abstol
6548 real(RKC) , intent(in) :: reltol
6549 type(GK31_type) , intent(in) :: qrule
6550 real(RKC) , intent(out) :: integral, abserr
6551 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6552 integer(IK) , intent(out) , contiguous :: sindex(:)
6553 integer(IK) , intent(out) :: neval
6554 integer(IK) , intent(out) :: nint
6555 integer(IK) :: err
6556 end function
6557#endif
6558
6559#if RK3_ENABLED
6560 module function QAGD_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6562 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK3
6563#endif
6564 use pm_kind, only: RKC => RK3
6565 procedure(real(RKC)) :: getFunc
6566 real(RKC) , intent(in) :: lb
6567 real(RKC) , intent(in) :: ub
6568 real(RKC) , intent(in) :: abstol
6569 real(RKC) , intent(in) :: reltol
6570 type(GK31_type) , intent(in) :: qrule
6571 real(RKC) , intent(out) :: integral, abserr
6572 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6573 integer(IK) , intent(out) , contiguous :: sindex(:)
6574 integer(IK) , intent(out) :: neval
6575 integer(IK) , intent(out) :: nint
6576 integer(IK) :: err
6577 end function
6578#endif
6579
6580#if RK2_ENABLED
6581 module function QAGD_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6583 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK2
6584#endif
6585 use pm_kind, only: RKC => RK2
6586 procedure(real(RKC)) :: getFunc
6587 real(RKC) , intent(in) :: lb
6588 real(RKC) , intent(in) :: ub
6589 real(RKC) , intent(in) :: abstol
6590 real(RKC) , intent(in) :: reltol
6591 type(GK31_type) , intent(in) :: qrule
6592 real(RKC) , intent(out) :: integral, abserr
6593 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6594 integer(IK) , intent(out) , contiguous :: sindex(:)
6595 integer(IK) , intent(out) :: neval
6596 integer(IK) , intent(out) :: nint
6597 integer(IK) :: err
6598 end function
6599#endif
6600
6601#if RK1_ENABLED
6602 module function QAGD_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6604 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FF_RK1
6605#endif
6606 use pm_kind, only: RKC => RK1
6607 procedure(real(RKC)) :: getFunc
6608 real(RKC) , intent(in) :: lb
6609 real(RKC) , intent(in) :: ub
6610 real(RKC) , intent(in) :: abstol
6611 real(RKC) , intent(in) :: reltol
6612 type(GK31_type) , intent(in) :: qrule
6613 real(RKC) , intent(out) :: integral, abserr
6614 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6615 integer(IK) , intent(out) , contiguous :: sindex(:)
6616 integer(IK) , intent(out) :: neval
6617 integer(IK) , intent(out) :: nint
6618 integer(IK) :: err
6619 end function
6620#endif
6621
6622 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6623
6624#if RK5_ENABLED
6625 module function QAGD_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6627 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK5
6628#endif
6629 use pm_kind, only: RKC => RK5
6630 procedure(real(RKC)) :: getFunc
6631 real(RKC) , intent(in) :: lb
6632 type(pinf_type) , intent(in) :: ub
6633 real(RKC) , intent(in) :: abstol
6634 real(RKC) , intent(in) :: reltol
6635 type(GK31_type) , intent(in) :: qrule
6636 real(RKC) , intent(out) :: integral, abserr
6637 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6638 integer(IK) , intent(out) , contiguous :: sindex(:)
6639 integer(IK) , intent(out) :: neval
6640 integer(IK) , intent(out) :: nint
6641 integer(IK) :: err
6642 end function
6643#endif
6644
6645#if RK4_ENABLED
6646 module function QAGD_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6648 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK4
6649#endif
6650 use pm_kind, only: RKC => RK4
6651 procedure(real(RKC)) :: getFunc
6652 real(RKC) , intent(in) :: lb
6653 type(pinf_type) , intent(in) :: ub
6654 real(RKC) , intent(in) :: abstol
6655 real(RKC) , intent(in) :: reltol
6656 type(GK31_type) , intent(in) :: qrule
6657 real(RKC) , intent(out) :: integral, abserr
6658 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6659 integer(IK) , intent(out) , contiguous :: sindex(:)
6660 integer(IK) , intent(out) :: neval
6661 integer(IK) , intent(out) :: nint
6662 integer(IK) :: err
6663 end function
6664#endif
6665
6666#if RK3_ENABLED
6667 module function QAGD_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6669 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK3
6670#endif
6671 use pm_kind, only: RKC => RK3
6672 procedure(real(RKC)) :: getFunc
6673 real(RKC) , intent(in) :: lb
6674 type(pinf_type) , intent(in) :: ub
6675 real(RKC) , intent(in) :: abstol
6676 real(RKC) , intent(in) :: reltol
6677 type(GK31_type) , intent(in) :: qrule
6678 real(RKC) , intent(out) :: integral, abserr
6679 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6680 integer(IK) , intent(out) , contiguous :: sindex(:)
6681 integer(IK) , intent(out) :: neval
6682 integer(IK) , intent(out) :: nint
6683 integer(IK) :: err
6684 end function
6685#endif
6686
6687#if RK2_ENABLED
6688 module function QAGD_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6690 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK2
6691#endif
6692 use pm_kind, only: RKC => RK2
6693 procedure(real(RKC)) :: getFunc
6694 real(RKC) , intent(in) :: lb
6695 type(pinf_type) , intent(in) :: ub
6696 real(RKC) , intent(in) :: abstol
6697 real(RKC) , intent(in) :: reltol
6698 type(GK31_type) , intent(in) :: qrule
6699 real(RKC) , intent(out) :: integral, abserr
6700 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6701 integer(IK) , intent(out) , contiguous :: sindex(:)
6702 integer(IK) , intent(out) :: neval
6703 integer(IK) , intent(out) :: nint
6704 integer(IK) :: err
6705 end function
6706#endif
6707
6708#if RK1_ENABLED
6709 module function QAGD_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6711 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_FI_RK1
6712#endif
6713 use pm_kind, only: RKC => RK1
6714 procedure(real(RKC)) :: getFunc
6715 real(RKC) , intent(in) :: lb
6716 type(pinf_type) , intent(in) :: ub
6717 real(RKC) , intent(in) :: abstol
6718 real(RKC) , intent(in) :: reltol
6719 type(GK31_type) , intent(in) :: qrule
6720 real(RKC) , intent(out) :: integral, abserr
6721 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6722 integer(IK) , intent(out) , contiguous :: sindex(:)
6723 integer(IK) , intent(out) :: neval
6724 integer(IK) , intent(out) :: nint
6725 integer(IK) :: err
6726 end function
6727#endif
6728
6729 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6730
6731#if RK5_ENABLED
6732 module function QAGD_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6734 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK5
6735#endif
6736 use pm_kind, only: RKC => RK5
6737 procedure(real(RKC)) :: getFunc
6738 type(ninf_type) , intent(in) :: lb
6739 real(RKC) , intent(in) :: ub
6740 real(RKC) , intent(in) :: abstol
6741 real(RKC) , intent(in) :: reltol
6742 type(GK31_type) , intent(in) :: qrule
6743 real(RKC) , intent(out) :: integral, abserr
6744 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6745 integer(IK) , intent(out) , contiguous :: sindex(:)
6746 integer(IK) , intent(out) :: neval
6747 integer(IK) , intent(out) :: nint
6748 integer(IK) :: err
6749 end function
6750#endif
6751
6752#if RK4_ENABLED
6753 module function QAGD_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6755 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK4
6756#endif
6757 use pm_kind, only: RKC => RK4
6758 procedure(real(RKC)) :: getFunc
6759 type(ninf_type) , intent(in) :: lb
6760 real(RKC) , intent(in) :: ub
6761 real(RKC) , intent(in) :: abstol
6762 real(RKC) , intent(in) :: reltol
6763 type(GK31_type) , intent(in) :: qrule
6764 real(RKC) , intent(out) :: integral, abserr
6765 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6766 integer(IK) , intent(out) , contiguous :: sindex(:)
6767 integer(IK) , intent(out) :: neval
6768 integer(IK) , intent(out) :: nint
6769 integer(IK) :: err
6770 end function
6771#endif
6772
6773#if RK3_ENABLED
6774 module function QAGD_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6776 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK3
6777#endif
6778 use pm_kind, only: RKC => RK3
6779 procedure(real(RKC)) :: getFunc
6780 type(ninf_type) , intent(in) :: lb
6781 real(RKC) , intent(in) :: ub
6782 real(RKC) , intent(in) :: abstol
6783 real(RKC) , intent(in) :: reltol
6784 type(GK31_type) , intent(in) :: qrule
6785 real(RKC) , intent(out) :: integral, abserr
6786 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6787 integer(IK) , intent(out) , contiguous :: sindex(:)
6788 integer(IK) , intent(out) :: neval
6789 integer(IK) , intent(out) :: nint
6790 integer(IK) :: err
6791 end function
6792#endif
6793
6794#if RK2_ENABLED
6795 module function QAGD_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6797 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK2
6798#endif
6799 use pm_kind, only: RKC => RK2
6800 procedure(real(RKC)) :: getFunc
6801 type(ninf_type) , intent(in) :: lb
6802 real(RKC) , intent(in) :: ub
6803 real(RKC) , intent(in) :: abstol
6804 real(RKC) , intent(in) :: reltol
6805 type(GK31_type) , intent(in) :: qrule
6806 real(RKC) , intent(out) :: integral, abserr
6807 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6808 integer(IK) , intent(out) , contiguous :: sindex(:)
6809 integer(IK) , intent(out) :: neval
6810 integer(IK) , intent(out) :: nint
6811 integer(IK) :: err
6812 end function
6813#endif
6814
6815#if RK1_ENABLED
6816 module function QAGD_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6818 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_IF_RK1
6819#endif
6820 use pm_kind, only: RKC => RK1
6821 procedure(real(RKC)) :: getFunc
6822 type(ninf_type) , intent(in) :: lb
6823 real(RKC) , intent(in) :: ub
6824 real(RKC) , intent(in) :: abstol
6825 real(RKC) , intent(in) :: reltol
6826 type(GK31_type) , intent(in) :: qrule
6827 real(RKC) , intent(out) :: integral, abserr
6828 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6829 integer(IK) , intent(out) , contiguous :: sindex(:)
6830 integer(IK) , intent(out) :: neval
6831 integer(IK) , intent(out) :: nint
6832 integer(IK) :: err
6833 end function
6834#endif
6835
6836 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6837
6838#if RK5_ENABLED
6839 module function QAGD_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6841 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK5
6842#endif
6843 use pm_kind, only: RKC => RK5
6844 procedure(real(RKC)) :: getFunc
6845 type(ninf_type) , intent(in) :: lb
6846 type(pinf_type) , intent(in) :: ub
6847 real(RKC) , intent(in) :: abstol
6848 real(RKC) , intent(in) :: reltol
6849 type(GK31_type) , intent(in) :: qrule
6850 real(RKC) , intent(out) :: integral, abserr
6851 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6852 integer(IK) , intent(out) , contiguous :: sindex(:)
6853 integer(IK) , intent(out) :: neval
6854 integer(IK) , intent(out) :: nint
6855 integer(IK) :: err
6856 end function
6857#endif
6858
6859#if RK4_ENABLED
6860 module function QAGD_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6862 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK4
6863#endif
6864 use pm_kind, only: RKC => RK4
6865 procedure(real(RKC)) :: getFunc
6866 type(ninf_type) , intent(in) :: lb
6867 type(pinf_type) , intent(in) :: ub
6868 real(RKC) , intent(in) :: abstol
6869 real(RKC) , intent(in) :: reltol
6870 type(GK31_type) , intent(in) :: qrule
6871 real(RKC) , intent(out) :: integral, abserr
6872 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6873 integer(IK) , intent(out) , contiguous :: sindex(:)
6874 integer(IK) , intent(out) :: neval
6875 integer(IK) , intent(out) :: nint
6876 integer(IK) :: err
6877 end function
6878#endif
6879
6880#if RK3_ENABLED
6881 module function QAGD_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6883 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK3
6884#endif
6885 use pm_kind, only: RKC => RK3
6886 procedure(real(RKC)) :: getFunc
6887 type(ninf_type) , intent(in) :: lb
6888 type(pinf_type) , intent(in) :: ub
6889 real(RKC) , intent(in) :: abstol
6890 real(RKC) , intent(in) :: reltol
6891 type(GK31_type) , intent(in) :: qrule
6892 real(RKC) , intent(out) :: integral, abserr
6893 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6894 integer(IK) , intent(out) , contiguous :: sindex(:)
6895 integer(IK) , intent(out) :: neval
6896 integer(IK) , intent(out) :: nint
6897 integer(IK) :: err
6898 end function
6899#endif
6900
6901#if RK2_ENABLED
6902 module function QAGD_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6904 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK2
6905#endif
6906 use pm_kind, only: RKC => RK2
6907 procedure(real(RKC)) :: getFunc
6908 type(ninf_type) , intent(in) :: lb
6909 type(pinf_type) , intent(in) :: ub
6910 real(RKC) , intent(in) :: abstol
6911 real(RKC) , intent(in) :: reltol
6912 type(GK31_type) , intent(in) :: qrule
6913 real(RKC) , intent(out) :: integral, abserr
6914 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6915 integer(IK) , intent(out) , contiguous :: sindex(:)
6916 integer(IK) , intent(out) :: neval
6917 integer(IK) , intent(out) :: nint
6918 integer(IK) :: err
6919 end function
6920#endif
6921
6922#if RK1_ENABLED
6923 module function QAGD_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6925 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK31_II_RK1
6926#endif
6927 use pm_kind, only: RKC => RK1
6928 procedure(real(RKC)) :: getFunc
6929 type(ninf_type) , intent(in) :: lb
6930 type(pinf_type) , intent(in) :: ub
6931 real(RKC) , intent(in) :: abstol
6932 real(RKC) , intent(in) :: reltol
6933 type(GK31_type) , intent(in) :: qrule
6934 real(RKC) , intent(out) :: integral, abserr
6935 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6936 integer(IK) , intent(out) , contiguous :: sindex(:)
6937 integer(IK) , intent(out) :: neval
6938 integer(IK) , intent(out) :: nint
6939 integer(IK) :: err
6940 end function
6941#endif
6942
6943 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6944
6945 end interface
6946
6947 ! QAGD_GK41
6948
6949 interface getQuadErr
6950
6951 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6952
6953#if RK5_ENABLED
6954 module function QAGD_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6956 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK5
6957#endif
6958 use pm_kind, only: RKC => RK5
6959 procedure(real(RKC)) :: getFunc
6960 real(RKC) , intent(in) :: lb
6961 real(RKC) , intent(in) :: ub
6962 real(RKC) , intent(in) :: abstol
6963 real(RKC) , intent(in) :: reltol
6964 type(GK41_type) , intent(in) :: qrule
6965 real(RKC) , intent(out) :: integral, abserr
6966 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6967 integer(IK) , intent(out) , contiguous :: sindex(:)
6968 integer(IK) , intent(out) :: neval
6969 integer(IK) , intent(out) :: nint
6970 integer(IK) :: err
6971 end function
6972#endif
6973
6974#if RK4_ENABLED
6975 module function QAGD_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6977 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK4
6978#endif
6979 use pm_kind, only: RKC => RK4
6980 procedure(real(RKC)) :: getFunc
6981 real(RKC) , intent(in) :: lb
6982 real(RKC) , intent(in) :: ub
6983 real(RKC) , intent(in) :: abstol
6984 real(RKC) , intent(in) :: reltol
6985 type(GK41_type) , intent(in) :: qrule
6986 real(RKC) , intent(out) :: integral, abserr
6987 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
6988 integer(IK) , intent(out) , contiguous :: sindex(:)
6989 integer(IK) , intent(out) :: neval
6990 integer(IK) , intent(out) :: nint
6991 integer(IK) :: err
6992 end function
6993#endif
6994
6995#if RK3_ENABLED
6996 module function QAGD_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
6997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
6998 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK3
6999#endif
7000 use pm_kind, only: RKC => RK3
7001 procedure(real(RKC)) :: getFunc
7002 real(RKC) , intent(in) :: lb
7003 real(RKC) , intent(in) :: ub
7004 real(RKC) , intent(in) :: abstol
7005 real(RKC) , intent(in) :: reltol
7006 type(GK41_type) , intent(in) :: qrule
7007 real(RKC) , intent(out) :: integral, abserr
7008 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7009 integer(IK) , intent(out) , contiguous :: sindex(:)
7010 integer(IK) , intent(out) :: neval
7011 integer(IK) , intent(out) :: nint
7012 integer(IK) :: err
7013 end function
7014#endif
7015
7016#if RK2_ENABLED
7017 module function QAGD_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7018#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7019 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK2
7020#endif
7021 use pm_kind, only: RKC => RK2
7022 procedure(real(RKC)) :: getFunc
7023 real(RKC) , intent(in) :: lb
7024 real(RKC) , intent(in) :: ub
7025 real(RKC) , intent(in) :: abstol
7026 real(RKC) , intent(in) :: reltol
7027 type(GK41_type) , intent(in) :: qrule
7028 real(RKC) , intent(out) :: integral, abserr
7029 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7030 integer(IK) , intent(out) , contiguous :: sindex(:)
7031 integer(IK) , intent(out) :: neval
7032 integer(IK) , intent(out) :: nint
7033 integer(IK) :: err
7034 end function
7035#endif
7036
7037#if RK1_ENABLED
7038 module function QAGD_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7039#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7040 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FF_RK1
7041#endif
7042 use pm_kind, only: RKC => RK1
7043 procedure(real(RKC)) :: getFunc
7044 real(RKC) , intent(in) :: lb
7045 real(RKC) , intent(in) :: ub
7046 real(RKC) , intent(in) :: abstol
7047 real(RKC) , intent(in) :: reltol
7048 type(GK41_type) , intent(in) :: qrule
7049 real(RKC) , intent(out) :: integral, abserr
7050 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7051 integer(IK) , intent(out) , contiguous :: sindex(:)
7052 integer(IK) , intent(out) :: neval
7053 integer(IK) , intent(out) :: nint
7054 integer(IK) :: err
7055 end function
7056#endif
7057
7058 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7059
7060#if RK5_ENABLED
7061 module function QAGD_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7063 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK5
7064#endif
7065 use pm_kind, only: RKC => RK5
7066 procedure(real(RKC)) :: getFunc
7067 real(RKC) , intent(in) :: lb
7068 type(pinf_type) , intent(in) :: ub
7069 real(RKC) , intent(in) :: abstol
7070 real(RKC) , intent(in) :: reltol
7071 type(GK41_type) , intent(in) :: qrule
7072 real(RKC) , intent(out) :: integral, abserr
7073 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7074 integer(IK) , intent(out) , contiguous :: sindex(:)
7075 integer(IK) , intent(out) :: neval
7076 integer(IK) , intent(out) :: nint
7077 integer(IK) :: err
7078 end function
7079#endif
7080
7081#if RK4_ENABLED
7082 module function QAGD_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7084 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK4
7085#endif
7086 use pm_kind, only: RKC => RK4
7087 procedure(real(RKC)) :: getFunc
7088 real(RKC) , intent(in) :: lb
7089 type(pinf_type) , intent(in) :: ub
7090 real(RKC) , intent(in) :: abstol
7091 real(RKC) , intent(in) :: reltol
7092 type(GK41_type) , intent(in) :: qrule
7093 real(RKC) , intent(out) :: integral, abserr
7094 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7095 integer(IK) , intent(out) , contiguous :: sindex(:)
7096 integer(IK) , intent(out) :: neval
7097 integer(IK) , intent(out) :: nint
7098 integer(IK) :: err
7099 end function
7100#endif
7101
7102#if RK3_ENABLED
7103 module function QAGD_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7105 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK3
7106#endif
7107 use pm_kind, only: RKC => RK3
7108 procedure(real(RKC)) :: getFunc
7109 real(RKC) , intent(in) :: lb
7110 type(pinf_type) , intent(in) :: ub
7111 real(RKC) , intent(in) :: abstol
7112 real(RKC) , intent(in) :: reltol
7113 type(GK41_type) , intent(in) :: qrule
7114 real(RKC) , intent(out) :: integral, abserr
7115 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7116 integer(IK) , intent(out) , contiguous :: sindex(:)
7117 integer(IK) , intent(out) :: neval
7118 integer(IK) , intent(out) :: nint
7119 integer(IK) :: err
7120 end function
7121#endif
7122
7123#if RK2_ENABLED
7124 module function QAGD_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7126 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK2
7127#endif
7128 use pm_kind, only: RKC => RK2
7129 procedure(real(RKC)) :: getFunc
7130 real(RKC) , intent(in) :: lb
7131 type(pinf_type) , intent(in) :: ub
7132 real(RKC) , intent(in) :: abstol
7133 real(RKC) , intent(in) :: reltol
7134 type(GK41_type) , intent(in) :: qrule
7135 real(RKC) , intent(out) :: integral, abserr
7136 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7137 integer(IK) , intent(out) , contiguous :: sindex(:)
7138 integer(IK) , intent(out) :: neval
7139 integer(IK) , intent(out) :: nint
7140 integer(IK) :: err
7141 end function
7142#endif
7143
7144#if RK1_ENABLED
7145 module function QAGD_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7147 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_FI_RK1
7148#endif
7149 use pm_kind, only: RKC => RK1
7150 procedure(real(RKC)) :: getFunc
7151 real(RKC) , intent(in) :: lb
7152 type(pinf_type) , intent(in) :: ub
7153 real(RKC) , intent(in) :: abstol
7154 real(RKC) , intent(in) :: reltol
7155 type(GK41_type) , intent(in) :: qrule
7156 real(RKC) , intent(out) :: integral, abserr
7157 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7158 integer(IK) , intent(out) , contiguous :: sindex(:)
7159 integer(IK) , intent(out) :: neval
7160 integer(IK) , intent(out) :: nint
7161 integer(IK) :: err
7162 end function
7163#endif
7164
7165 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7166
7167#if RK5_ENABLED
7168 module function QAGD_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7170 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK5
7171#endif
7172 use pm_kind, only: RKC => RK5
7173 procedure(real(RKC)) :: getFunc
7174 type(ninf_type) , intent(in) :: lb
7175 real(RKC) , intent(in) :: ub
7176 real(RKC) , intent(in) :: abstol
7177 real(RKC) , intent(in) :: reltol
7178 type(GK41_type) , intent(in) :: qrule
7179 real(RKC) , intent(out) :: integral, abserr
7180 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7181 integer(IK) , intent(out) , contiguous :: sindex(:)
7182 integer(IK) , intent(out) :: neval
7183 integer(IK) , intent(out) :: nint
7184 integer(IK) :: err
7185 end function
7186#endif
7187
7188#if RK4_ENABLED
7189 module function QAGD_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7191 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK4
7192#endif
7193 use pm_kind, only: RKC => RK4
7194 procedure(real(RKC)) :: getFunc
7195 type(ninf_type) , intent(in) :: lb
7196 real(RKC) , intent(in) :: ub
7197 real(RKC) , intent(in) :: abstol
7198 real(RKC) , intent(in) :: reltol
7199 type(GK41_type) , intent(in) :: qrule
7200 real(RKC) , intent(out) :: integral, abserr
7201 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7202 integer(IK) , intent(out) , contiguous :: sindex(:)
7203 integer(IK) , intent(out) :: neval
7204 integer(IK) , intent(out) :: nint
7205 integer(IK) :: err
7206 end function
7207#endif
7208
7209#if RK3_ENABLED
7210 module function QAGD_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7212 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK3
7213#endif
7214 use pm_kind, only: RKC => RK3
7215 procedure(real(RKC)) :: getFunc
7216 type(ninf_type) , intent(in) :: lb
7217 real(RKC) , intent(in) :: ub
7218 real(RKC) , intent(in) :: abstol
7219 real(RKC) , intent(in) :: reltol
7220 type(GK41_type) , intent(in) :: qrule
7221 real(RKC) , intent(out) :: integral, abserr
7222 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7223 integer(IK) , intent(out) , contiguous :: sindex(:)
7224 integer(IK) , intent(out) :: neval
7225 integer(IK) , intent(out) :: nint
7226 integer(IK) :: err
7227 end function
7228#endif
7229
7230#if RK2_ENABLED
7231 module function QAGD_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7233 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK2
7234#endif
7235 use pm_kind, only: RKC => RK2
7236 procedure(real(RKC)) :: getFunc
7237 type(ninf_type) , intent(in) :: lb
7238 real(RKC) , intent(in) :: ub
7239 real(RKC) , intent(in) :: abstol
7240 real(RKC) , intent(in) :: reltol
7241 type(GK41_type) , intent(in) :: qrule
7242 real(RKC) , intent(out) :: integral, abserr
7243 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7244 integer(IK) , intent(out) , contiguous :: sindex(:)
7245 integer(IK) , intent(out) :: neval
7246 integer(IK) , intent(out) :: nint
7247 integer(IK) :: err
7248 end function
7249#endif
7250
7251#if RK1_ENABLED
7252 module function QAGD_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7254 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_IF_RK1
7255#endif
7256 use pm_kind, only: RKC => RK1
7257 procedure(real(RKC)) :: getFunc
7258 type(ninf_type) , intent(in) :: lb
7259 real(RKC) , intent(in) :: ub
7260 real(RKC) , intent(in) :: abstol
7261 real(RKC) , intent(in) :: reltol
7262 type(GK41_type) , intent(in) :: qrule
7263 real(RKC) , intent(out) :: integral, abserr
7264 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7265 integer(IK) , intent(out) , contiguous :: sindex(:)
7266 integer(IK) , intent(out) :: neval
7267 integer(IK) , intent(out) :: nint
7268 integer(IK) :: err
7269 end function
7270#endif
7271
7272 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7273
7274#if RK5_ENABLED
7275 module function QAGD_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7277 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK5
7278#endif
7279 use pm_kind, only: RKC => RK5
7280 procedure(real(RKC)) :: getFunc
7281 type(ninf_type) , intent(in) :: lb
7282 type(pinf_type) , intent(in) :: ub
7283 real(RKC) , intent(in) :: abstol
7284 real(RKC) , intent(in) :: reltol
7285 type(GK41_type) , intent(in) :: qrule
7286 real(RKC) , intent(out) :: integral, abserr
7287 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7288 integer(IK) , intent(out) , contiguous :: sindex(:)
7289 integer(IK) , intent(out) :: neval
7290 integer(IK) , intent(out) :: nint
7291 integer(IK) :: err
7292 end function
7293#endif
7294
7295#if RK4_ENABLED
7296 module function QAGD_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7298 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK4
7299#endif
7300 use pm_kind, only: RKC => RK4
7301 procedure(real(RKC)) :: getFunc
7302 type(ninf_type) , intent(in) :: lb
7303 type(pinf_type) , intent(in) :: ub
7304 real(RKC) , intent(in) :: abstol
7305 real(RKC) , intent(in) :: reltol
7306 type(GK41_type) , intent(in) :: qrule
7307 real(RKC) , intent(out) :: integral, abserr
7308 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7309 integer(IK) , intent(out) , contiguous :: sindex(:)
7310 integer(IK) , intent(out) :: neval
7311 integer(IK) , intent(out) :: nint
7312 integer(IK) :: err
7313 end function
7314#endif
7315
7316#if RK3_ENABLED
7317 module function QAGD_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7318#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7319 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK3
7320#endif
7321 use pm_kind, only: RKC => RK3
7322 procedure(real(RKC)) :: getFunc
7323 type(ninf_type) , intent(in) :: lb
7324 type(pinf_type) , intent(in) :: ub
7325 real(RKC) , intent(in) :: abstol
7326 real(RKC) , intent(in) :: reltol
7327 type(GK41_type) , intent(in) :: qrule
7328 real(RKC) , intent(out) :: integral, abserr
7329 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7330 integer(IK) , intent(out) , contiguous :: sindex(:)
7331 integer(IK) , intent(out) :: neval
7332 integer(IK) , intent(out) :: nint
7333 integer(IK) :: err
7334 end function
7335#endif
7336
7337#if RK2_ENABLED
7338 module function QAGD_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7340 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK2
7341#endif
7342 use pm_kind, only: RKC => RK2
7343 procedure(real(RKC)) :: getFunc
7344 type(ninf_type) , intent(in) :: lb
7345 type(pinf_type) , intent(in) :: ub
7346 real(RKC) , intent(in) :: abstol
7347 real(RKC) , intent(in) :: reltol
7348 type(GK41_type) , intent(in) :: qrule
7349 real(RKC) , intent(out) :: integral, abserr
7350 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7351 integer(IK) , intent(out) , contiguous :: sindex(:)
7352 integer(IK) , intent(out) :: neval
7353 integer(IK) , intent(out) :: nint
7354 integer(IK) :: err
7355 end function
7356#endif
7357
7358#if RK1_ENABLED
7359 module function QAGD_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7360#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7361 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK41_II_RK1
7362#endif
7363 use pm_kind, only: RKC => RK1
7364 procedure(real(RKC)) :: getFunc
7365 type(ninf_type) , intent(in) :: lb
7366 type(pinf_type) , intent(in) :: ub
7367 real(RKC) , intent(in) :: abstol
7368 real(RKC) , intent(in) :: reltol
7369 type(GK41_type) , intent(in) :: qrule
7370 real(RKC) , intent(out) :: integral, abserr
7371 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7372 integer(IK) , intent(out) , contiguous :: sindex(:)
7373 integer(IK) , intent(out) :: neval
7374 integer(IK) , intent(out) :: nint
7375 integer(IK) :: err
7376 end function
7377#endif
7378
7379 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7380
7381 end interface
7382
7383 ! QAGD_GK51
7384
7385 interface getQuadErr
7386
7387 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7388
7389#if RK5_ENABLED
7390 module function QAGD_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7392 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK5
7393#endif
7394 use pm_kind, only: RKC => RK5
7395 procedure(real(RKC)) :: getFunc
7396 real(RKC) , intent(in) :: lb
7397 real(RKC) , intent(in) :: ub
7398 real(RKC) , intent(in) :: abstol
7399 real(RKC) , intent(in) :: reltol
7400 type(GK51_type) , intent(in) :: qrule
7401 real(RKC) , intent(out) :: integral, abserr
7402 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7403 integer(IK) , intent(out) , contiguous :: sindex(:)
7404 integer(IK) , intent(out) :: neval
7405 integer(IK) , intent(out) :: nint
7406 integer(IK) :: err
7407 end function
7408#endif
7409
7410#if RK4_ENABLED
7411 module function QAGD_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7413 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK4
7414#endif
7415 use pm_kind, only: RKC => RK4
7416 procedure(real(RKC)) :: getFunc
7417 real(RKC) , intent(in) :: lb
7418 real(RKC) , intent(in) :: ub
7419 real(RKC) , intent(in) :: abstol
7420 real(RKC) , intent(in) :: reltol
7421 type(GK51_type) , intent(in) :: qrule
7422 real(RKC) , intent(out) :: integral, abserr
7423 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7424 integer(IK) , intent(out) , contiguous :: sindex(:)
7425 integer(IK) , intent(out) :: neval
7426 integer(IK) , intent(out) :: nint
7427 integer(IK) :: err
7428 end function
7429#endif
7430
7431#if RK3_ENABLED
7432 module function QAGD_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7434 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK3
7435#endif
7436 use pm_kind, only: RKC => RK3
7437 procedure(real(RKC)) :: getFunc
7438 real(RKC) , intent(in) :: lb
7439 real(RKC) , intent(in) :: ub
7440 real(RKC) , intent(in) :: abstol
7441 real(RKC) , intent(in) :: reltol
7442 type(GK51_type) , intent(in) :: qrule
7443 real(RKC) , intent(out) :: integral, abserr
7444 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7445 integer(IK) , intent(out) , contiguous :: sindex(:)
7446 integer(IK) , intent(out) :: neval
7447 integer(IK) , intent(out) :: nint
7448 integer(IK) :: err
7449 end function
7450#endif
7451
7452#if RK2_ENABLED
7453 module function QAGD_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7455 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK2
7456#endif
7457 use pm_kind, only: RKC => RK2
7458 procedure(real(RKC)) :: getFunc
7459 real(RKC) , intent(in) :: lb
7460 real(RKC) , intent(in) :: ub
7461 real(RKC) , intent(in) :: abstol
7462 real(RKC) , intent(in) :: reltol
7463 type(GK51_type) , intent(in) :: qrule
7464 real(RKC) , intent(out) :: integral, abserr
7465 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7466 integer(IK) , intent(out) , contiguous :: sindex(:)
7467 integer(IK) , intent(out) :: neval
7468 integer(IK) , intent(out) :: nint
7469 integer(IK) :: err
7470 end function
7471#endif
7472
7473#if RK1_ENABLED
7474 module function QAGD_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7476 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FF_RK1
7477#endif
7478 use pm_kind, only: RKC => RK1
7479 procedure(real(RKC)) :: getFunc
7480 real(RKC) , intent(in) :: lb
7481 real(RKC) , intent(in) :: ub
7482 real(RKC) , intent(in) :: abstol
7483 real(RKC) , intent(in) :: reltol
7484 type(GK51_type) , intent(in) :: qrule
7485 real(RKC) , intent(out) :: integral, abserr
7486 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7487 integer(IK) , intent(out) , contiguous :: sindex(:)
7488 integer(IK) , intent(out) :: neval
7489 integer(IK) , intent(out) :: nint
7490 integer(IK) :: err
7491 end function
7492#endif
7493
7494 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7495
7496#if RK5_ENABLED
7497 module function QAGD_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7498#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7499 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK5
7500#endif
7501 use pm_kind, only: RKC => RK5
7502 procedure(real(RKC)) :: getFunc
7503 real(RKC) , intent(in) :: lb
7504 type(pinf_type) , intent(in) :: ub
7505 real(RKC) , intent(in) :: abstol
7506 real(RKC) , intent(in) :: reltol
7507 type(GK51_type) , intent(in) :: qrule
7508 real(RKC) , intent(out) :: integral, abserr
7509 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7510 integer(IK) , intent(out) , contiguous :: sindex(:)
7511 integer(IK) , intent(out) :: neval
7512 integer(IK) , intent(out) :: nint
7513 integer(IK) :: err
7514 end function
7515#endif
7516
7517#if RK4_ENABLED
7518 module function QAGD_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7520 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK4
7521#endif
7522 use pm_kind, only: RKC => RK4
7523 procedure(real(RKC)) :: getFunc
7524 real(RKC) , intent(in) :: lb
7525 type(pinf_type) , intent(in) :: ub
7526 real(RKC) , intent(in) :: abstol
7527 real(RKC) , intent(in) :: reltol
7528 type(GK51_type) , intent(in) :: qrule
7529 real(RKC) , intent(out) :: integral, abserr
7530 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7531 integer(IK) , intent(out) , contiguous :: sindex(:)
7532 integer(IK) , intent(out) :: neval
7533 integer(IK) , intent(out) :: nint
7534 integer(IK) :: err
7535 end function
7536#endif
7537
7538#if RK3_ENABLED
7539 module function QAGD_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7541 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK3
7542#endif
7543 use pm_kind, only: RKC => RK3
7544 procedure(real(RKC)) :: getFunc
7545 real(RKC) , intent(in) :: lb
7546 type(pinf_type) , intent(in) :: ub
7547 real(RKC) , intent(in) :: abstol
7548 real(RKC) , intent(in) :: reltol
7549 type(GK51_type) , intent(in) :: qrule
7550 real(RKC) , intent(out) :: integral, abserr
7551 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7552 integer(IK) , intent(out) , contiguous :: sindex(:)
7553 integer(IK) , intent(out) :: neval
7554 integer(IK) , intent(out) :: nint
7555 integer(IK) :: err
7556 end function
7557#endif
7558
7559#if RK2_ENABLED
7560 module function QAGD_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7562 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK2
7563#endif
7564 use pm_kind, only: RKC => RK2
7565 procedure(real(RKC)) :: getFunc
7566 real(RKC) , intent(in) :: lb
7567 type(pinf_type) , intent(in) :: ub
7568 real(RKC) , intent(in) :: abstol
7569 real(RKC) , intent(in) :: reltol
7570 type(GK51_type) , intent(in) :: qrule
7571 real(RKC) , intent(out) :: integral, abserr
7572 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7573 integer(IK) , intent(out) , contiguous :: sindex(:)
7574 integer(IK) , intent(out) :: neval
7575 integer(IK) , intent(out) :: nint
7576 integer(IK) :: err
7577 end function
7578#endif
7579
7580#if RK1_ENABLED
7581 module function QAGD_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7582#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7583 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_FI_RK1
7584#endif
7585 use pm_kind, only: RKC => RK1
7586 procedure(real(RKC)) :: getFunc
7587 real(RKC) , intent(in) :: lb
7588 type(pinf_type) , intent(in) :: ub
7589 real(RKC) , intent(in) :: abstol
7590 real(RKC) , intent(in) :: reltol
7591 type(GK51_type) , intent(in) :: qrule
7592 real(RKC) , intent(out) :: integral, abserr
7593 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7594 integer(IK) , intent(out) , contiguous :: sindex(:)
7595 integer(IK) , intent(out) :: neval
7596 integer(IK) , intent(out) :: nint
7597 integer(IK) :: err
7598 end function
7599#endif
7600
7601 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7602
7603#if RK5_ENABLED
7604 module function QAGD_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7606 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK5
7607#endif
7608 use pm_kind, only: RKC => RK5
7609 procedure(real(RKC)) :: getFunc
7610 type(ninf_type) , intent(in) :: lb
7611 real(RKC) , intent(in) :: ub
7612 real(RKC) , intent(in) :: abstol
7613 real(RKC) , intent(in) :: reltol
7614 type(GK51_type) , intent(in) :: qrule
7615 real(RKC) , intent(out) :: integral, abserr
7616 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7617 integer(IK) , intent(out) , contiguous :: sindex(:)
7618 integer(IK) , intent(out) :: neval
7619 integer(IK) , intent(out) :: nint
7620 integer(IK) :: err
7621 end function
7622#endif
7623
7624#if RK4_ENABLED
7625 module function QAGD_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7627 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK4
7628#endif
7629 use pm_kind, only: RKC => RK4
7630 procedure(real(RKC)) :: getFunc
7631 type(ninf_type) , intent(in) :: lb
7632 real(RKC) , intent(in) :: ub
7633 real(RKC) , intent(in) :: abstol
7634 real(RKC) , intent(in) :: reltol
7635 type(GK51_type) , intent(in) :: qrule
7636 real(RKC) , intent(out) :: integral, abserr
7637 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7638 integer(IK) , intent(out) , contiguous :: sindex(:)
7639 integer(IK) , intent(out) :: neval
7640 integer(IK) , intent(out) :: nint
7641 integer(IK) :: err
7642 end function
7643#endif
7644
7645#if RK3_ENABLED
7646 module function QAGD_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7648 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK3
7649#endif
7650 use pm_kind, only: RKC => RK3
7651 procedure(real(RKC)) :: getFunc
7652 type(ninf_type) , intent(in) :: lb
7653 real(RKC) , intent(in) :: ub
7654 real(RKC) , intent(in) :: abstol
7655 real(RKC) , intent(in) :: reltol
7656 type(GK51_type) , intent(in) :: qrule
7657 real(RKC) , intent(out) :: integral, abserr
7658 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7659 integer(IK) , intent(out) , contiguous :: sindex(:)
7660 integer(IK) , intent(out) :: neval
7661 integer(IK) , intent(out) :: nint
7662 integer(IK) :: err
7663 end function
7664#endif
7665
7666#if RK2_ENABLED
7667 module function QAGD_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7669 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK2
7670#endif
7671 use pm_kind, only: RKC => RK2
7672 procedure(real(RKC)) :: getFunc
7673 type(ninf_type) , intent(in) :: lb
7674 real(RKC) , intent(in) :: ub
7675 real(RKC) , intent(in) :: abstol
7676 real(RKC) , intent(in) :: reltol
7677 type(GK51_type) , intent(in) :: qrule
7678 real(RKC) , intent(out) :: integral, abserr
7679 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7680 integer(IK) , intent(out) , contiguous :: sindex(:)
7681 integer(IK) , intent(out) :: neval
7682 integer(IK) , intent(out) :: nint
7683 integer(IK) :: err
7684 end function
7685#endif
7686
7687#if RK1_ENABLED
7688 module function QAGD_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7690 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_IF_RK1
7691#endif
7692 use pm_kind, only: RKC => RK1
7693 procedure(real(RKC)) :: getFunc
7694 type(ninf_type) , intent(in) :: lb
7695 real(RKC) , intent(in) :: ub
7696 real(RKC) , intent(in) :: abstol
7697 real(RKC) , intent(in) :: reltol
7698 type(GK51_type) , intent(in) :: qrule
7699 real(RKC) , intent(out) :: integral, abserr
7700 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7701 integer(IK) , intent(out) , contiguous :: sindex(:)
7702 integer(IK) , intent(out) :: neval
7703 integer(IK) , intent(out) :: nint
7704 integer(IK) :: err
7705 end function
7706#endif
7707
7708 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7709
7710#if RK5_ENABLED
7711 module function QAGD_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7713 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK5
7714#endif
7715 use pm_kind, only: RKC => RK5
7716 procedure(real(RKC)) :: getFunc
7717 type(ninf_type) , intent(in) :: lb
7718 type(pinf_type) , intent(in) :: ub
7719 real(RKC) , intent(in) :: abstol
7720 real(RKC) , intent(in) :: reltol
7721 type(GK51_type) , intent(in) :: qrule
7722 real(RKC) , intent(out) :: integral, abserr
7723 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7724 integer(IK) , intent(out) , contiguous :: sindex(:)
7725 integer(IK) , intent(out) :: neval
7726 integer(IK) , intent(out) :: nint
7727 integer(IK) :: err
7728 end function
7729#endif
7730
7731#if RK4_ENABLED
7732 module function QAGD_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7734 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK4
7735#endif
7736 use pm_kind, only: RKC => RK4
7737 procedure(real(RKC)) :: getFunc
7738 type(ninf_type) , intent(in) :: lb
7739 type(pinf_type) , intent(in) :: ub
7740 real(RKC) , intent(in) :: abstol
7741 real(RKC) , intent(in) :: reltol
7742 type(GK51_type) , intent(in) :: qrule
7743 real(RKC) , intent(out) :: integral, abserr
7744 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7745 integer(IK) , intent(out) , contiguous :: sindex(:)
7746 integer(IK) , intent(out) :: neval
7747 integer(IK) , intent(out) :: nint
7748 integer(IK) :: err
7749 end function
7750#endif
7751
7752#if RK3_ENABLED
7753 module function QAGD_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7754#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7755 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK3
7756#endif
7757 use pm_kind, only: RKC => RK3
7758 procedure(real(RKC)) :: getFunc
7759 type(ninf_type) , intent(in) :: lb
7760 type(pinf_type) , intent(in) :: ub
7761 real(RKC) , intent(in) :: abstol
7762 real(RKC) , intent(in) :: reltol
7763 type(GK51_type) , intent(in) :: qrule
7764 real(RKC) , intent(out) :: integral, abserr
7765 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7766 integer(IK) , intent(out) , contiguous :: sindex(:)
7767 integer(IK) , intent(out) :: neval
7768 integer(IK) , intent(out) :: nint
7769 integer(IK) :: err
7770 end function
7771#endif
7772
7773#if RK2_ENABLED
7774 module function QAGD_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7776 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK2
7777#endif
7778 use pm_kind, only: RKC => RK2
7779 procedure(real(RKC)) :: getFunc
7780 type(ninf_type) , intent(in) :: lb
7781 type(pinf_type) , intent(in) :: ub
7782 real(RKC) , intent(in) :: abstol
7783 real(RKC) , intent(in) :: reltol
7784 type(GK51_type) , intent(in) :: qrule
7785 real(RKC) , intent(out) :: integral, abserr
7786 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7787 integer(IK) , intent(out) , contiguous :: sindex(:)
7788 integer(IK) , intent(out) :: neval
7789 integer(IK) , intent(out) :: nint
7790 integer(IK) :: err
7791 end function
7792#endif
7793
7794#if RK1_ENABLED
7795 module function QAGD_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7797 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK51_II_RK1
7798#endif
7799 use pm_kind, only: RKC => RK1
7800 procedure(real(RKC)) :: getFunc
7801 type(ninf_type) , intent(in) :: lb
7802 type(pinf_type) , intent(in) :: ub
7803 real(RKC) , intent(in) :: abstol
7804 real(RKC) , intent(in) :: reltol
7805 type(GK51_type) , intent(in) :: qrule
7806 real(RKC) , intent(out) :: integral, abserr
7807 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7808 integer(IK) , intent(out) , contiguous :: sindex(:)
7809 integer(IK) , intent(out) :: neval
7810 integer(IK) , intent(out) :: nint
7811 integer(IK) :: err
7812 end function
7813#endif
7814
7815 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7816
7817 end interface
7818
7819 ! QAGD_GK61
7820
7821 interface getQuadErr
7822
7823 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7824
7825#if RK5_ENABLED
7826 module function QAGD_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7828 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK5
7829#endif
7830 use pm_kind, only: RKC => RK5
7831 procedure(real(RKC)) :: getFunc
7832 real(RKC) , intent(in) :: lb
7833 real(RKC) , intent(in) :: ub
7834 real(RKC) , intent(in) :: abstol
7835 real(RKC) , intent(in) :: reltol
7836 type(GK61_type) , intent(in) :: qrule
7837 real(RKC) , intent(out) :: integral, abserr
7838 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7839 integer(IK) , intent(out) , contiguous :: sindex(:)
7840 integer(IK) , intent(out) :: neval
7841 integer(IK) , intent(out) :: nint
7842 integer(IK) :: err
7843 end function
7844#endif
7845
7846#if RK4_ENABLED
7847 module function QAGD_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7848#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7849 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK4
7850#endif
7851 use pm_kind, only: RKC => RK4
7852 procedure(real(RKC)) :: getFunc
7853 real(RKC) , intent(in) :: lb
7854 real(RKC) , intent(in) :: ub
7855 real(RKC) , intent(in) :: abstol
7856 real(RKC) , intent(in) :: reltol
7857 type(GK61_type) , intent(in) :: qrule
7858 real(RKC) , intent(out) :: integral, abserr
7859 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7860 integer(IK) , intent(out) , contiguous :: sindex(:)
7861 integer(IK) , intent(out) :: neval
7862 integer(IK) , intent(out) :: nint
7863 integer(IK) :: err
7864 end function
7865#endif
7866
7867#if RK3_ENABLED
7868 module function QAGD_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7870 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK3
7871#endif
7872 use pm_kind, only: RKC => RK3
7873 procedure(real(RKC)) :: getFunc
7874 real(RKC) , intent(in) :: lb
7875 real(RKC) , intent(in) :: ub
7876 real(RKC) , intent(in) :: abstol
7877 real(RKC) , intent(in) :: reltol
7878 type(GK61_type) , intent(in) :: qrule
7879 real(RKC) , intent(out) :: integral, abserr
7880 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7881 integer(IK) , intent(out) , contiguous :: sindex(:)
7882 integer(IK) , intent(out) :: neval
7883 integer(IK) , intent(out) :: nint
7884 integer(IK) :: err
7885 end function
7886#endif
7887
7888#if RK2_ENABLED
7889 module function QAGD_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7891 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK2
7892#endif
7893 use pm_kind, only: RKC => RK2
7894 procedure(real(RKC)) :: getFunc
7895 real(RKC) , intent(in) :: lb
7896 real(RKC) , intent(in) :: ub
7897 real(RKC) , intent(in) :: abstol
7898 real(RKC) , intent(in) :: reltol
7899 type(GK61_type) , intent(in) :: qrule
7900 real(RKC) , intent(out) :: integral, abserr
7901 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7902 integer(IK) , intent(out) , contiguous :: sindex(:)
7903 integer(IK) , intent(out) :: neval
7904 integer(IK) , intent(out) :: nint
7905 integer(IK) :: err
7906 end function
7907#endif
7908
7909#if RK1_ENABLED
7910 module function QAGD_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7911#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7912 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FF_RK1
7913#endif
7914 use pm_kind, only: RKC => RK1
7915 procedure(real(RKC)) :: getFunc
7916 real(RKC) , intent(in) :: lb
7917 real(RKC) , intent(in) :: ub
7918 real(RKC) , intent(in) :: abstol
7919 real(RKC) , intent(in) :: reltol
7920 type(GK61_type) , intent(in) :: qrule
7921 real(RKC) , intent(out) :: integral, abserr
7922 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7923 integer(IK) , intent(out) , contiguous :: sindex(:)
7924 integer(IK) , intent(out) :: neval
7925 integer(IK) , intent(out) :: nint
7926 integer(IK) :: err
7927 end function
7928#endif
7929
7930 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
7931
7932#if RK5_ENABLED
7933 module function QAGD_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7934#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7935 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK5
7936#endif
7937 use pm_kind, only: RKC => RK5
7938 procedure(real(RKC)) :: getFunc
7939 real(RKC) , intent(in) :: lb
7940 type(pinf_type) , intent(in) :: ub
7941 real(RKC) , intent(in) :: abstol
7942 real(RKC) , intent(in) :: reltol
7943 type(GK61_type) , intent(in) :: qrule
7944 real(RKC) , intent(out) :: integral, abserr
7945 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7946 integer(IK) , intent(out) , contiguous :: sindex(:)
7947 integer(IK) , intent(out) :: neval
7948 integer(IK) , intent(out) :: nint
7949 integer(IK) :: err
7950 end function
7951#endif
7952
7953#if RK4_ENABLED
7954 module function QAGD_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7956 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK4
7957#endif
7958 use pm_kind, only: RKC => RK4
7959 procedure(real(RKC)) :: getFunc
7960 real(RKC) , intent(in) :: lb
7961 type(pinf_type) , intent(in) :: ub
7962 real(RKC) , intent(in) :: abstol
7963 real(RKC) , intent(in) :: reltol
7964 type(GK61_type) , intent(in) :: qrule
7965 real(RKC) , intent(out) :: integral, abserr
7966 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7967 integer(IK) , intent(out) , contiguous :: sindex(:)
7968 integer(IK) , intent(out) :: neval
7969 integer(IK) , intent(out) :: nint
7970 integer(IK) :: err
7971 end function
7972#endif
7973
7974#if RK3_ENABLED
7975 module function QAGD_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7977 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK3
7978#endif
7979 use pm_kind, only: RKC => RK3
7980 procedure(real(RKC)) :: getFunc
7981 real(RKC) , intent(in) :: lb
7982 type(pinf_type) , intent(in) :: ub
7983 real(RKC) , intent(in) :: abstol
7984 real(RKC) , intent(in) :: reltol
7985 type(GK61_type) , intent(in) :: qrule
7986 real(RKC) , intent(out) :: integral, abserr
7987 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
7988 integer(IK) , intent(out) , contiguous :: sindex(:)
7989 integer(IK) , intent(out) :: neval
7990 integer(IK) , intent(out) :: nint
7991 integer(IK) :: err
7992 end function
7993#endif
7994
7995#if RK2_ENABLED
7996 module function QAGD_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
7997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
7998 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK2
7999#endif
8000 use pm_kind, only: RKC => RK2
8001 procedure(real(RKC)) :: getFunc
8002 real(RKC) , intent(in) :: lb
8003 type(pinf_type) , intent(in) :: ub
8004 real(RKC) , intent(in) :: abstol
8005 real(RKC) , intent(in) :: reltol
8006 type(GK61_type) , intent(in) :: qrule
8007 real(RKC) , intent(out) :: integral, abserr
8008 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8009 integer(IK) , intent(out) , contiguous :: sindex(:)
8010 integer(IK) , intent(out) :: neval
8011 integer(IK) , intent(out) :: nint
8012 integer(IK) :: err
8013 end function
8014#endif
8015
8016#if RK1_ENABLED
8017 module function QAGD_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8018#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8019 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_FI_RK1
8020#endif
8021 use pm_kind, only: RKC => RK1
8022 procedure(real(RKC)) :: getFunc
8023 real(RKC) , intent(in) :: lb
8024 type(pinf_type) , intent(in) :: ub
8025 real(RKC) , intent(in) :: abstol
8026 real(RKC) , intent(in) :: reltol
8027 type(GK61_type) , intent(in) :: qrule
8028 real(RKC) , intent(out) :: integral, abserr
8029 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8030 integer(IK) , intent(out) , contiguous :: sindex(:)
8031 integer(IK) , intent(out) :: neval
8032 integer(IK) , intent(out) :: nint
8033 integer(IK) :: err
8034 end function
8035#endif
8036
8037 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8038
8039#if RK5_ENABLED
8040 module function QAGD_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8042 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK5
8043#endif
8044 use pm_kind, only: RKC => RK5
8045 procedure(real(RKC)) :: getFunc
8046 type(ninf_type) , intent(in) :: lb
8047 real(RKC) , intent(in) :: ub
8048 real(RKC) , intent(in) :: abstol
8049 real(RKC) , intent(in) :: reltol
8050 type(GK61_type) , intent(in) :: qrule
8051 real(RKC) , intent(out) :: integral, abserr
8052 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8053 integer(IK) , intent(out) , contiguous :: sindex(:)
8054 integer(IK) , intent(out) :: neval
8055 integer(IK) , intent(out) :: nint
8056 integer(IK) :: err
8057 end function
8058#endif
8059
8060#if RK4_ENABLED
8061 module function QAGD_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8063 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK4
8064#endif
8065 use pm_kind, only: RKC => RK4
8066 procedure(real(RKC)) :: getFunc
8067 type(ninf_type) , intent(in) :: lb
8068 real(RKC) , intent(in) :: ub
8069 real(RKC) , intent(in) :: abstol
8070 real(RKC) , intent(in) :: reltol
8071 type(GK61_type) , intent(in) :: qrule
8072 real(RKC) , intent(out) :: integral, abserr
8073 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8074 integer(IK) , intent(out) , contiguous :: sindex(:)
8075 integer(IK) , intent(out) :: neval
8076 integer(IK) , intent(out) :: nint
8077 integer(IK) :: err
8078 end function
8079#endif
8080
8081#if RK3_ENABLED
8082 module function QAGD_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8084 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK3
8085#endif
8086 use pm_kind, only: RKC => RK3
8087 procedure(real(RKC)) :: getFunc
8088 type(ninf_type) , intent(in) :: lb
8089 real(RKC) , intent(in) :: ub
8090 real(RKC) , intent(in) :: abstol
8091 real(RKC) , intent(in) :: reltol
8092 type(GK61_type) , intent(in) :: qrule
8093 real(RKC) , intent(out) :: integral, abserr
8094 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8095 integer(IK) , intent(out) , contiguous :: sindex(:)
8096 integer(IK) , intent(out) :: neval
8097 integer(IK) , intent(out) :: nint
8098 integer(IK) :: err
8099 end function
8100#endif
8101
8102#if RK2_ENABLED
8103 module function QAGD_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8105 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK2
8106#endif
8107 use pm_kind, only: RKC => RK2
8108 procedure(real(RKC)) :: getFunc
8109 type(ninf_type) , intent(in) :: lb
8110 real(RKC) , intent(in) :: ub
8111 real(RKC) , intent(in) :: abstol
8112 real(RKC) , intent(in) :: reltol
8113 type(GK61_type) , intent(in) :: qrule
8114 real(RKC) , intent(out) :: integral, abserr
8115 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8116 integer(IK) , intent(out) , contiguous :: sindex(:)
8117 integer(IK) , intent(out) :: neval
8118 integer(IK) , intent(out) :: nint
8119 integer(IK) :: err
8120 end function
8121#endif
8122
8123#if RK1_ENABLED
8124 module function QAGD_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8126 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_IF_RK1
8127#endif
8128 use pm_kind, only: RKC => RK1
8129 procedure(real(RKC)) :: getFunc
8130 type(ninf_type) , intent(in) :: lb
8131 real(RKC) , intent(in) :: ub
8132 real(RKC) , intent(in) :: abstol
8133 real(RKC) , intent(in) :: reltol
8134 type(GK61_type) , intent(in) :: qrule
8135 real(RKC) , intent(out) :: integral, abserr
8136 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8137 integer(IK) , intent(out) , contiguous :: sindex(:)
8138 integer(IK) , intent(out) :: neval
8139 integer(IK) , intent(out) :: nint
8140 integer(IK) :: err
8141 end function
8142#endif
8143
8144 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8145
8146#if RK5_ENABLED
8147 module function QAGD_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8149 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK5
8150#endif
8151 use pm_kind, only: RKC => RK5
8152 procedure(real(RKC)) :: getFunc
8153 type(ninf_type) , intent(in) :: lb
8154 type(pinf_type) , intent(in) :: ub
8155 real(RKC) , intent(in) :: abstol
8156 real(RKC) , intent(in) :: reltol
8157 type(GK61_type) , intent(in) :: qrule
8158 real(RKC) , intent(out) :: integral, abserr
8159 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8160 integer(IK) , intent(out) , contiguous :: sindex(:)
8161 integer(IK) , intent(out) :: neval
8162 integer(IK) , intent(out) :: nint
8163 integer(IK) :: err
8164 end function
8165#endif
8166
8167#if RK4_ENABLED
8168 module function QAGD_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8170 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK4
8171#endif
8172 use pm_kind, only: RKC => RK4
8173 procedure(real(RKC)) :: getFunc
8174 type(ninf_type) , intent(in) :: lb
8175 type(pinf_type) , intent(in) :: ub
8176 real(RKC) , intent(in) :: abstol
8177 real(RKC) , intent(in) :: reltol
8178 type(GK61_type) , intent(in) :: qrule
8179 real(RKC) , intent(out) :: integral, abserr
8180 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8181 integer(IK) , intent(out) , contiguous :: sindex(:)
8182 integer(IK) , intent(out) :: neval
8183 integer(IK) , intent(out) :: nint
8184 integer(IK) :: err
8185 end function
8186#endif
8187
8188#if RK3_ENABLED
8189 module function QAGD_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8191 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK3
8192#endif
8193 use pm_kind, only: RKC => RK3
8194 procedure(real(RKC)) :: getFunc
8195 type(ninf_type) , intent(in) :: lb
8196 type(pinf_type) , intent(in) :: ub
8197 real(RKC) , intent(in) :: abstol
8198 real(RKC) , intent(in) :: reltol
8199 type(GK61_type) , intent(in) :: qrule
8200 real(RKC) , intent(out) :: integral, abserr
8201 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8202 integer(IK) , intent(out) , contiguous :: sindex(:)
8203 integer(IK) , intent(out) :: neval
8204 integer(IK) , intent(out) :: nint
8205 integer(IK) :: err
8206 end function
8207#endif
8208
8209#if RK2_ENABLED
8210 module function QAGD_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8212 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK2
8213#endif
8214 use pm_kind, only: RKC => RK2
8215 procedure(real(RKC)) :: getFunc
8216 type(ninf_type) , intent(in) :: lb
8217 type(pinf_type) , intent(in) :: ub
8218 real(RKC) , intent(in) :: abstol
8219 real(RKC) , intent(in) :: reltol
8220 type(GK61_type) , intent(in) :: qrule
8221 real(RKC) , intent(out) :: integral, abserr
8222 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8223 integer(IK) , intent(out) , contiguous :: sindex(:)
8224 integer(IK) , intent(out) :: neval
8225 integer(IK) , intent(out) :: nint
8226 integer(IK) :: err
8227 end function
8228#endif
8229
8230#if RK1_ENABLED
8231 module function QAGD_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, integral, abserr, sinfo, sindex, neval, nint) result(err)
8232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8233 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GK61_II_RK1
8234#endif
8235 use pm_kind, only: RKC => RK1
8236 procedure(real(RKC)) :: getFunc
8237 type(ninf_type) , intent(in) :: lb
8238 type(pinf_type) , intent(in) :: ub
8239 real(RKC) , intent(in) :: abstol
8240 real(RKC) , intent(in) :: reltol
8241 type(GK61_type) , intent(in) :: qrule
8242 real(RKC) , intent(out) :: integral, abserr
8243 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8244 integer(IK) , intent(out) , contiguous :: sindex(:)
8245 integer(IK) , intent(out) :: neval
8246 integer(IK) , intent(out) :: nint
8247 integer(IK) :: err
8248 end function
8249#endif
8250
8251 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8252
8253 end interface
8254
8255 ! QAGD_GKXX
8256
8257 interface getQuadErr
8258
8259 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8260
8261#if RK5_ENABLED
8262 module function QAGD_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8264 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK5
8265#endif
8266 use pm_kind, only: RKC => RK5
8267 procedure(real(RKC)) :: getFunc
8268 real(RKC) , intent(in) :: lb
8269 real(RKC) , intent(in) :: ub
8270 real(RKC) , intent(in) :: abstol
8271 real(RKC) , intent(in) :: reltol
8272 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8273 real(RKC) , intent(out) :: integral, abserr
8274 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8275 integer(IK) , intent(out) , contiguous :: sindex(:)
8276 integer(IK) , intent(out) :: neval
8277 integer(IK) , intent(out) :: nint
8278 integer(IK) :: err
8279 end function
8280#endif
8281
8282#if RK4_ENABLED
8283 module function QAGD_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8284#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8285 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK4
8286#endif
8287 use pm_kind, only: RKC => RK4
8288 procedure(real(RKC)) :: getFunc
8289 real(RKC) , intent(in) :: lb
8290 real(RKC) , intent(in) :: ub
8291 real(RKC) , intent(in) :: abstol
8292 real(RKC) , intent(in) :: reltol
8293 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8294 real(RKC) , intent(out) :: integral, abserr
8295 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8296 integer(IK) , intent(out) , contiguous :: sindex(:)
8297 integer(IK) , intent(out) :: neval
8298 integer(IK) , intent(out) :: nint
8299 integer(IK) :: err
8300 end function
8301#endif
8302
8303#if RK3_ENABLED
8304 module function QAGD_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8306 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK3
8307#endif
8308 use pm_kind, only: RKC => RK3
8309 procedure(real(RKC)) :: getFunc
8310 real(RKC) , intent(in) :: lb
8311 real(RKC) , intent(in) :: ub
8312 real(RKC) , intent(in) :: abstol
8313 real(RKC) , intent(in) :: reltol
8314 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8315 real(RKC) , intent(out) :: integral, abserr
8316 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8317 integer(IK) , intent(out) , contiguous :: sindex(:)
8318 integer(IK) , intent(out) :: neval
8319 integer(IK) , intent(out) :: nint
8320 integer(IK) :: err
8321 end function
8322#endif
8323
8324#if RK2_ENABLED
8325 module function QAGD_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8327 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK2
8328#endif
8329 use pm_kind, only: RKC => RK2
8330 procedure(real(RKC)) :: getFunc
8331 real(RKC) , intent(in) :: lb
8332 real(RKC) , intent(in) :: ub
8333 real(RKC) , intent(in) :: abstol
8334 real(RKC) , intent(in) :: reltol
8335 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8336 real(RKC) , intent(out) :: integral, abserr
8337 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8338 integer(IK) , intent(out) , contiguous :: sindex(:)
8339 integer(IK) , intent(out) :: neval
8340 integer(IK) , intent(out) :: nint
8341 integer(IK) :: err
8342 end function
8343#endif
8344
8345#if RK1_ENABLED
8346 module function QAGD_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8347#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8348 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FF_RK1
8349#endif
8350 use pm_kind, only: RKC => RK1
8351 procedure(real(RKC)) :: getFunc
8352 real(RKC) , intent(in) :: lb
8353 real(RKC) , intent(in) :: ub
8354 real(RKC) , intent(in) :: abstol
8355 real(RKC) , intent(in) :: reltol
8356 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8357 real(RKC) , intent(out) :: integral, abserr
8358 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8359 integer(IK) , intent(out) , contiguous :: sindex(:)
8360 integer(IK) , intent(out) :: neval
8361 integer(IK) , intent(out) :: nint
8362 integer(IK) :: err
8363 end function
8364#endif
8365
8366 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8367
8368#if RK5_ENABLED
8369 module function QAGD_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8370#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8371 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK5
8372#endif
8373 use pm_kind, only: RKC => RK5
8374 procedure(real(RKC)) :: getFunc
8375 real(RKC) , intent(in) :: lb
8376 type(pinf_type) , intent(in) :: ub
8377 real(RKC) , intent(in) :: abstol
8378 real(RKC) , intent(in) :: reltol
8379 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8380 real(RKC) , intent(out) :: integral, abserr
8381 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8382 integer(IK) , intent(out) , contiguous :: sindex(:)
8383 integer(IK) , intent(out) :: neval
8384 integer(IK) , intent(out) :: nint
8385 integer(IK) :: err
8386 end function
8387#endif
8388
8389#if RK4_ENABLED
8390 module function QAGD_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8392 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK4
8393#endif
8394 use pm_kind, only: RKC => RK4
8395 procedure(real(RKC)) :: getFunc
8396 real(RKC) , intent(in) :: lb
8397 type(pinf_type) , intent(in) :: ub
8398 real(RKC) , intent(in) :: abstol
8399 real(RKC) , intent(in) :: reltol
8400 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8401 real(RKC) , intent(out) :: integral, abserr
8402 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8403 integer(IK) , intent(out) , contiguous :: sindex(:)
8404 integer(IK) , intent(out) :: neval
8405 integer(IK) , intent(out) :: nint
8406 integer(IK) :: err
8407 end function
8408#endif
8409
8410#if RK3_ENABLED
8411 module function QAGD_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8413 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK3
8414#endif
8415 use pm_kind, only: RKC => RK3
8416 procedure(real(RKC)) :: getFunc
8417 real(RKC) , intent(in) :: lb
8418 type(pinf_type) , intent(in) :: ub
8419 real(RKC) , intent(in) :: abstol
8420 real(RKC) , intent(in) :: reltol
8421 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8422 real(RKC) , intent(out) :: integral, abserr
8423 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8424 integer(IK) , intent(out) , contiguous :: sindex(:)
8425 integer(IK) , intent(out) :: neval
8426 integer(IK) , intent(out) :: nint
8427 integer(IK) :: err
8428 end function
8429#endif
8430
8431#if RK2_ENABLED
8432 module function QAGD_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8434 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK2
8435#endif
8436 use pm_kind, only: RKC => RK2
8437 procedure(real(RKC)) :: getFunc
8438 real(RKC) , intent(in) :: lb
8439 type(pinf_type) , intent(in) :: ub
8440 real(RKC) , intent(in) :: abstol
8441 real(RKC) , intent(in) :: reltol
8442 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8443 real(RKC) , intent(out) :: integral, abserr
8444 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8445 integer(IK) , intent(out) , contiguous :: sindex(:)
8446 integer(IK) , intent(out) :: neval
8447 integer(IK) , intent(out) :: nint
8448 integer(IK) :: err
8449 end function
8450#endif
8451
8452#if RK1_ENABLED
8453 module function QAGD_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8454#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8455 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_FI_RK1
8456#endif
8457 use pm_kind, only: RKC => RK1
8458 procedure(real(RKC)) :: getFunc
8459 real(RKC) , intent(in) :: lb
8460 type(pinf_type) , intent(in) :: ub
8461 real(RKC) , intent(in) :: abstol
8462 real(RKC) , intent(in) :: reltol
8463 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8464 real(RKC) , intent(out) :: integral, abserr
8465 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8466 integer(IK) , intent(out) , contiguous :: sindex(:)
8467 integer(IK) , intent(out) :: neval
8468 integer(IK) , intent(out) :: nint
8469 integer(IK) :: err
8470 end function
8471#endif
8472
8473 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8474
8475#if RK5_ENABLED
8476 module function QAGD_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8478 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK5
8479#endif
8480 use pm_kind, only: RKC => RK5
8481 procedure(real(RKC)) :: getFunc
8482 type(ninf_type) , intent(in) :: lb
8483 real(RKC) , intent(in) :: ub
8484 real(RKC) , intent(in) :: abstol
8485 real(RKC) , intent(in) :: reltol
8486 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8487 real(RKC) , intent(out) :: integral, abserr
8488 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8489 integer(IK) , intent(out) , contiguous :: sindex(:)
8490 integer(IK) , intent(out) :: neval
8491 integer(IK) , intent(out) :: nint
8492 integer(IK) :: err
8493 end function
8494#endif
8495
8496#if RK4_ENABLED
8497 module function QAGD_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8498#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8499 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK4
8500#endif
8501 use pm_kind, only: RKC => RK4
8502 procedure(real(RKC)) :: getFunc
8503 type(ninf_type) , intent(in) :: lb
8504 real(RKC) , intent(in) :: ub
8505 real(RKC) , intent(in) :: abstol
8506 real(RKC) , intent(in) :: reltol
8507 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8508 real(RKC) , intent(out) :: integral, abserr
8509 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8510 integer(IK) , intent(out) , contiguous :: sindex(:)
8511 integer(IK) , intent(out) :: neval
8512 integer(IK) , intent(out) :: nint
8513 integer(IK) :: err
8514 end function
8515#endif
8516
8517#if RK3_ENABLED
8518 module function QAGD_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8519#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8520 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK3
8521#endif
8522 use pm_kind, only: RKC => RK3
8523 procedure(real(RKC)) :: getFunc
8524 type(ninf_type) , intent(in) :: lb
8525 real(RKC) , intent(in) :: ub
8526 real(RKC) , intent(in) :: abstol
8527 real(RKC) , intent(in) :: reltol
8528 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8529 real(RKC) , intent(out) :: integral, abserr
8530 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8531 integer(IK) , intent(out) , contiguous :: sindex(:)
8532 integer(IK) , intent(out) :: neval
8533 integer(IK) , intent(out) :: nint
8534 integer(IK) :: err
8535 end function
8536#endif
8537
8538#if RK2_ENABLED
8539 module function QAGD_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8540#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8541 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK2
8542#endif
8543 use pm_kind, only: RKC => RK2
8544 procedure(real(RKC)) :: getFunc
8545 type(ninf_type) , intent(in) :: lb
8546 real(RKC) , intent(in) :: ub
8547 real(RKC) , intent(in) :: abstol
8548 real(RKC) , intent(in) :: reltol
8549 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8550 real(RKC) , intent(out) :: integral, abserr
8551 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8552 integer(IK) , intent(out) , contiguous :: sindex(:)
8553 integer(IK) , intent(out) :: neval
8554 integer(IK) , intent(out) :: nint
8555 integer(IK) :: err
8556 end function
8557#endif
8558
8559#if RK1_ENABLED
8560 module function QAGD_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8561#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8562 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_IF_RK1
8563#endif
8564 use pm_kind, only: RKC => RK1
8565 procedure(real(RKC)) :: getFunc
8566 type(ninf_type) , intent(in) :: lb
8567 real(RKC) , intent(in) :: ub
8568 real(RKC) , intent(in) :: abstol
8569 real(RKC) , intent(in) :: reltol
8570 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8571 real(RKC) , intent(out) :: integral, abserr
8572 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8573 integer(IK) , intent(out) , contiguous :: sindex(:)
8574 integer(IK) , intent(out) :: neval
8575 integer(IK) , intent(out) :: nint
8576 integer(IK) :: err
8577 end function
8578#endif
8579
8580 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8581
8582#if RK5_ENABLED
8583 module function QAGD_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8585 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK5
8586#endif
8587 use pm_kind, only: RKC => RK5
8588 procedure(real(RKC)) :: getFunc
8589 type(ninf_type) , intent(in) :: lb
8590 type(pinf_type) , intent(in) :: ub
8591 real(RKC) , intent(in) :: abstol
8592 real(RKC) , intent(in) :: reltol
8593 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8594 real(RKC) , intent(out) :: integral, abserr
8595 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8596 integer(IK) , intent(out) , contiguous :: sindex(:)
8597 integer(IK) , intent(out) :: neval
8598 integer(IK) , intent(out) :: nint
8599 integer(IK) :: err
8600 end function
8601#endif
8602
8603#if RK4_ENABLED
8604 module function QAGD_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8605#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8606 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK4
8607#endif
8608 use pm_kind, only: RKC => RK4
8609 procedure(real(RKC)) :: getFunc
8610 type(ninf_type) , intent(in) :: lb
8611 type(pinf_type) , intent(in) :: ub
8612 real(RKC) , intent(in) :: abstol
8613 real(RKC) , intent(in) :: reltol
8614 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8615 real(RKC) , intent(out) :: integral, abserr
8616 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8617 integer(IK) , intent(out) , contiguous :: sindex(:)
8618 integer(IK) , intent(out) :: neval
8619 integer(IK) , intent(out) :: nint
8620 integer(IK) :: err
8621 end function
8622#endif
8623
8624#if RK3_ENABLED
8625 module function QAGD_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8627 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK3
8628#endif
8629 use pm_kind, only: RKC => RK3
8630 procedure(real(RKC)) :: getFunc
8631 type(ninf_type) , intent(in) :: lb
8632 type(pinf_type) , intent(in) :: ub
8633 real(RKC) , intent(in) :: abstol
8634 real(RKC) , intent(in) :: reltol
8635 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8636 real(RKC) , intent(out) :: integral, abserr
8637 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8638 integer(IK) , intent(out) , contiguous :: sindex(:)
8639 integer(IK) , intent(out) :: neval
8640 integer(IK) , intent(out) :: nint
8641 integer(IK) :: err
8642 end function
8643#endif
8644
8645#if RK2_ENABLED
8646 module function QAGD_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8647#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8648 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK2
8649#endif
8650 use pm_kind, only: RKC => RK2
8651 procedure(real(RKC)) :: getFunc
8652 type(ninf_type) , intent(in) :: lb
8653 type(pinf_type) , intent(in) :: ub
8654 real(RKC) , intent(in) :: abstol
8655 real(RKC) , intent(in) :: reltol
8656 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8657 real(RKC) , intent(out) :: integral, abserr
8658 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8659 integer(IK) , intent(out) , contiguous :: sindex(:)
8660 integer(IK) , intent(out) :: neval
8661 integer(IK) , intent(out) :: nint
8662 integer(IK) :: err
8663 end function
8664#endif
8665
8666#if RK1_ENABLED
8667 module function QAGD_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, integral, abserr, sinfo, sindex, neval, nint) result(err)
8668#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8669 !DEC$ ATTRIBUTES DLLEXPORT :: QAGD_GKXX_II_RK1
8670#endif
8671 use pm_kind, only: RKC => RK1
8672 procedure(real(RKC)) :: getFunc
8673 type(ninf_type) , intent(in) :: lb
8674 type(pinf_type) , intent(in) :: ub
8675 real(RKC) , intent(in) :: abstol
8676 real(RKC) , intent(in) :: reltol
8677 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
8678 real(RKC) , intent(out) :: integral, abserr
8679 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8680 integer(IK) , intent(out) , contiguous :: sindex(:)
8681 integer(IK) , intent(out) :: neval
8682 integer(IK) , intent(out) :: nint
8683 integer(IK) :: err
8684 end function
8685#endif
8686
8687 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8688
8689 end interface
8690
8691!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8692
8693 ! QAGS_GK15
8694
8695 interface getQuadErr
8696
8697 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8698
8699#if RK5_ENABLED
8700 module function QAGS_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8702 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK5
8703#endif
8704 use pm_kind, only: RKC => RK5
8705 procedure(real(RKC)) :: getFunc
8706 real(RKC) , intent(in) :: lb
8707 real(RKC) , intent(in) :: ub
8708 real(RKC) , intent(in) :: abstol
8709 real(RKC) , intent(in) :: reltol
8710 type(GK15_type) , intent(in) :: qrule
8711 type(weps_type) , intent(in) :: help
8712 real(RKC) , intent(out) :: integral, abserr
8713 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8714 integer(IK) , intent(out) , contiguous :: sindex(:)
8715 integer(IK) , intent(out) :: neval
8716 integer(IK) , intent(out) :: nint
8717 integer(IK) :: err
8718 end function
8719#endif
8720
8721#if RK4_ENABLED
8722 module function QAGS_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8723#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8724 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK4
8725#endif
8726 use pm_kind, only: RKC => RK4
8727 procedure(real(RKC)) :: getFunc
8728 real(RKC) , intent(in) :: lb
8729 real(RKC) , intent(in) :: ub
8730 real(RKC) , intent(in) :: abstol
8731 real(RKC) , intent(in) :: reltol
8732 type(GK15_type) , intent(in) :: qrule
8733 type(weps_type) , intent(in) :: help
8734 real(RKC) , intent(out) :: integral, abserr
8735 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8736 integer(IK) , intent(out) , contiguous :: sindex(:)
8737 integer(IK) , intent(out) :: neval
8738 integer(IK) , intent(out) :: nint
8739 integer(IK) :: err
8740 end function
8741#endif
8742
8743#if RK3_ENABLED
8744 module function QAGS_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8746 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK3
8747#endif
8748 use pm_kind, only: RKC => RK3
8749 procedure(real(RKC)) :: getFunc
8750 real(RKC) , intent(in) :: lb
8751 real(RKC) , intent(in) :: ub
8752 real(RKC) , intent(in) :: abstol
8753 real(RKC) , intent(in) :: reltol
8754 type(GK15_type) , intent(in) :: qrule
8755 type(weps_type) , intent(in) :: help
8756 real(RKC) , intent(out) :: integral, abserr
8757 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8758 integer(IK) , intent(out) , contiguous :: sindex(:)
8759 integer(IK) , intent(out) :: neval
8760 integer(IK) , intent(out) :: nint
8761 integer(IK) :: err
8762 end function
8763#endif
8764
8765#if RK2_ENABLED
8766 module function QAGS_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8768 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK2
8769#endif
8770 use pm_kind, only: RKC => RK2
8771 procedure(real(RKC)) :: getFunc
8772 real(RKC) , intent(in) :: lb
8773 real(RKC) , intent(in) :: ub
8774 real(RKC) , intent(in) :: abstol
8775 real(RKC) , intent(in) :: reltol
8776 type(GK15_type) , intent(in) :: qrule
8777 type(weps_type) , intent(in) :: help
8778 real(RKC) , intent(out) :: integral, abserr
8779 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8780 integer(IK) , intent(out) , contiguous :: sindex(:)
8781 integer(IK) , intent(out) :: neval
8782 integer(IK) , intent(out) :: nint
8783 integer(IK) :: err
8784 end function
8785#endif
8786
8787#if RK1_ENABLED
8788 module function QAGS_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8790 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FF_RK1
8791#endif
8792 use pm_kind, only: RKC => RK1
8793 procedure(real(RKC)) :: getFunc
8794 real(RKC) , intent(in) :: lb
8795 real(RKC) , intent(in) :: ub
8796 real(RKC) , intent(in) :: abstol
8797 real(RKC) , intent(in) :: reltol
8798 type(GK15_type) , intent(in) :: qrule
8799 type(weps_type) , intent(in) :: help
8800 real(RKC) , intent(out) :: integral, abserr
8801 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8802 integer(IK) , intent(out) , contiguous :: sindex(:)
8803 integer(IK) , intent(out) :: neval
8804 integer(IK) , intent(out) :: nint
8805 integer(IK) :: err
8806 end function
8807#endif
8808
8809 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8810
8811#if RK5_ENABLED
8812 module function QAGS_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8814 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK5
8815#endif
8816 use pm_kind, only: RKC => RK5
8817 procedure(real(RKC)) :: getFunc
8818 real(RKC) , intent(in) :: lb
8819 type(pinf_type) , intent(in) :: ub
8820 real(RKC) , intent(in) :: abstol
8821 real(RKC) , intent(in) :: reltol
8822 type(GK15_type) , intent(in) :: qrule
8823 type(weps_type) , intent(in) :: help
8824 real(RKC) , intent(out) :: integral, abserr
8825 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8826 integer(IK) , intent(out) , contiguous :: sindex(:)
8827 integer(IK) , intent(out) :: neval
8828 integer(IK) , intent(out) :: nint
8829 integer(IK) :: err
8830 end function
8831#endif
8832
8833#if RK4_ENABLED
8834 module function QAGS_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8836 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK4
8837#endif
8838 use pm_kind, only: RKC => RK4
8839 procedure(real(RKC)) :: getFunc
8840 real(RKC) , intent(in) :: lb
8841 type(pinf_type) , intent(in) :: ub
8842 real(RKC) , intent(in) :: abstol
8843 real(RKC) , intent(in) :: reltol
8844 type(GK15_type) , intent(in) :: qrule
8845 type(weps_type) , intent(in) :: help
8846 real(RKC) , intent(out) :: integral, abserr
8847 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8848 integer(IK) , intent(out) , contiguous :: sindex(:)
8849 integer(IK) , intent(out) :: neval
8850 integer(IK) , intent(out) :: nint
8851 integer(IK) :: err
8852 end function
8853#endif
8854
8855#if RK3_ENABLED
8856 module function QAGS_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8857#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8858 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK3
8859#endif
8860 use pm_kind, only: RKC => RK3
8861 procedure(real(RKC)) :: getFunc
8862 real(RKC) , intent(in) :: lb
8863 type(pinf_type) , intent(in) :: ub
8864 real(RKC) , intent(in) :: abstol
8865 real(RKC) , intent(in) :: reltol
8866 type(GK15_type) , intent(in) :: qrule
8867 type(weps_type) , intent(in) :: help
8868 real(RKC) , intent(out) :: integral, abserr
8869 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8870 integer(IK) , intent(out) , contiguous :: sindex(:)
8871 integer(IK) , intent(out) :: neval
8872 integer(IK) , intent(out) :: nint
8873 integer(IK) :: err
8874 end function
8875#endif
8876
8877#if RK2_ENABLED
8878 module function QAGS_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8880 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK2
8881#endif
8882 use pm_kind, only: RKC => RK2
8883 procedure(real(RKC)) :: getFunc
8884 real(RKC) , intent(in) :: lb
8885 type(pinf_type) , intent(in) :: ub
8886 real(RKC) , intent(in) :: abstol
8887 real(RKC) , intent(in) :: reltol
8888 type(GK15_type) , intent(in) :: qrule
8889 type(weps_type) , intent(in) :: help
8890 real(RKC) , intent(out) :: integral, abserr
8891 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8892 integer(IK) , intent(out) , contiguous :: sindex(:)
8893 integer(IK) , intent(out) :: neval
8894 integer(IK) , intent(out) :: nint
8895 integer(IK) :: err
8896 end function
8897#endif
8898
8899#if RK1_ENABLED
8900 module function QAGS_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8901#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8902 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_FI_RK1
8903#endif
8904 use pm_kind, only: RKC => RK1
8905 procedure(real(RKC)) :: getFunc
8906 real(RKC) , intent(in) :: lb
8907 type(pinf_type) , intent(in) :: ub
8908 real(RKC) , intent(in) :: abstol
8909 real(RKC) , intent(in) :: reltol
8910 type(GK15_type) , intent(in) :: qrule
8911 type(weps_type) , intent(in) :: help
8912 real(RKC) , intent(out) :: integral, abserr
8913 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8914 integer(IK) , intent(out) , contiguous :: sindex(:)
8915 integer(IK) , intent(out) :: neval
8916 integer(IK) , intent(out) :: nint
8917 integer(IK) :: err
8918 end function
8919#endif
8920
8921 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
8922
8923#if RK5_ENABLED
8924 module function QAGS_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8926 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK5
8927#endif
8928 use pm_kind, only: RKC => RK5
8929 procedure(real(RKC)) :: getFunc
8930 type(ninf_type) , intent(in) :: lb
8931 real(RKC) , intent(in) :: ub
8932 real(RKC) , intent(in) :: abstol
8933 real(RKC) , intent(in) :: reltol
8934 type(GK15_type) , intent(in) :: qrule
8935 type(weps_type) , intent(in) :: help
8936 real(RKC) , intent(out) :: integral, abserr
8937 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8938 integer(IK) , intent(out) , contiguous :: sindex(:)
8939 integer(IK) , intent(out) :: neval
8940 integer(IK) , intent(out) :: nint
8941 integer(IK) :: err
8942 end function
8943#endif
8944
8945#if RK4_ENABLED
8946 module function QAGS_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8948 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK4
8949#endif
8950 use pm_kind, only: RKC => RK4
8951 procedure(real(RKC)) :: getFunc
8952 type(ninf_type) , intent(in) :: lb
8953 real(RKC) , intent(in) :: ub
8954 real(RKC) , intent(in) :: abstol
8955 real(RKC) , intent(in) :: reltol
8956 type(GK15_type) , intent(in) :: qrule
8957 type(weps_type) , intent(in) :: help
8958 real(RKC) , intent(out) :: integral, abserr
8959 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8960 integer(IK) , intent(out) , contiguous :: sindex(:)
8961 integer(IK) , intent(out) :: neval
8962 integer(IK) , intent(out) :: nint
8963 integer(IK) :: err
8964 end function
8965#endif
8966
8967#if RK3_ENABLED
8968 module function QAGS_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8970 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK3
8971#endif
8972 use pm_kind, only: RKC => RK3
8973 procedure(real(RKC)) :: getFunc
8974 type(ninf_type) , intent(in) :: lb
8975 real(RKC) , intent(in) :: ub
8976 real(RKC) , intent(in) :: abstol
8977 real(RKC) , intent(in) :: reltol
8978 type(GK15_type) , intent(in) :: qrule
8979 type(weps_type) , intent(in) :: help
8980 real(RKC) , intent(out) :: integral, abserr
8981 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
8982 integer(IK) , intent(out) , contiguous :: sindex(:)
8983 integer(IK) , intent(out) :: neval
8984 integer(IK) , intent(out) :: nint
8985 integer(IK) :: err
8986 end function
8987#endif
8988
8989#if RK2_ENABLED
8990 module function QAGS_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
8991#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
8992 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK2
8993#endif
8994 use pm_kind, only: RKC => RK2
8995 procedure(real(RKC)) :: getFunc
8996 type(ninf_type) , intent(in) :: lb
8997 real(RKC) , intent(in) :: ub
8998 real(RKC) , intent(in) :: abstol
8999 real(RKC) , intent(in) :: reltol
9000 type(GK15_type) , intent(in) :: qrule
9001 type(weps_type) , intent(in) :: help
9002 real(RKC) , intent(out) :: integral, abserr
9003 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9004 integer(IK) , intent(out) , contiguous :: sindex(:)
9005 integer(IK) , intent(out) :: neval
9006 integer(IK) , intent(out) :: nint
9007 integer(IK) :: err
9008 end function
9009#endif
9010
9011#if RK1_ENABLED
9012 module function QAGS_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9014 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_IF_RK1
9015#endif
9016 use pm_kind, only: RKC => RK1
9017 procedure(real(RKC)) :: getFunc
9018 type(ninf_type) , intent(in) :: lb
9019 real(RKC) , intent(in) :: ub
9020 real(RKC) , intent(in) :: abstol
9021 real(RKC) , intent(in) :: reltol
9022 type(GK15_type) , intent(in) :: qrule
9023 type(weps_type) , intent(in) :: help
9024 real(RKC) , intent(out) :: integral, abserr
9025 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9026 integer(IK) , intent(out) , contiguous :: sindex(:)
9027 integer(IK) , intent(out) :: neval
9028 integer(IK) , intent(out) :: nint
9029 integer(IK) :: err
9030 end function
9031#endif
9032
9033 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9034
9035#if RK5_ENABLED
9036 module function QAGS_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9038 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK5
9039#endif
9040 use pm_kind, only: RKC => RK5
9041 procedure(real(RKC)) :: getFunc
9042 type(ninf_type) , intent(in) :: lb
9043 type(pinf_type) , intent(in) :: ub
9044 real(RKC) , intent(in) :: abstol
9045 real(RKC) , intent(in) :: reltol
9046 type(GK15_type) , intent(in) :: qrule
9047 type(weps_type) , intent(in) :: help
9048 real(RKC) , intent(out) :: integral, abserr
9049 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9050 integer(IK) , intent(out) , contiguous :: sindex(:)
9051 integer(IK) , intent(out) :: neval
9052 integer(IK) , intent(out) :: nint
9053 integer(IK) :: err
9054 end function
9055#endif
9056
9057#if RK4_ENABLED
9058 module function QAGS_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9060 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK4
9061#endif
9062 use pm_kind, only: RKC => RK4
9063 procedure(real(RKC)) :: getFunc
9064 type(ninf_type) , intent(in) :: lb
9065 type(pinf_type) , intent(in) :: ub
9066 real(RKC) , intent(in) :: abstol
9067 real(RKC) , intent(in) :: reltol
9068 type(GK15_type) , intent(in) :: qrule
9069 type(weps_type) , intent(in) :: help
9070 real(RKC) , intent(out) :: integral, abserr
9071 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9072 integer(IK) , intent(out) , contiguous :: sindex(:)
9073 integer(IK) , intent(out) :: neval
9074 integer(IK) , intent(out) :: nint
9075 integer(IK) :: err
9076 end function
9077#endif
9078
9079#if RK3_ENABLED
9080 module function QAGS_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9082 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK3
9083#endif
9084 use pm_kind, only: RKC => RK3
9085 procedure(real(RKC)) :: getFunc
9086 type(ninf_type) , intent(in) :: lb
9087 type(pinf_type) , intent(in) :: ub
9088 real(RKC) , intent(in) :: abstol
9089 real(RKC) , intent(in) :: reltol
9090 type(GK15_type) , intent(in) :: qrule
9091 type(weps_type) , intent(in) :: help
9092 real(RKC) , intent(out) :: integral, abserr
9093 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9094 integer(IK) , intent(out) , contiguous :: sindex(:)
9095 integer(IK) , intent(out) :: neval
9096 integer(IK) , intent(out) :: nint
9097 integer(IK) :: err
9098 end function
9099#endif
9100
9101#if RK2_ENABLED
9102 module function QAGS_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9103#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9104 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK2
9105#endif
9106 use pm_kind, only: RKC => RK2
9107 procedure(real(RKC)) :: getFunc
9108 type(ninf_type) , intent(in) :: lb
9109 type(pinf_type) , intent(in) :: ub
9110 real(RKC) , intent(in) :: abstol
9111 real(RKC) , intent(in) :: reltol
9112 type(GK15_type) , intent(in) :: qrule
9113 type(weps_type) , intent(in) :: help
9114 real(RKC) , intent(out) :: integral, abserr
9115 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9116 integer(IK) , intent(out) , contiguous :: sindex(:)
9117 integer(IK) , intent(out) :: neval
9118 integer(IK) , intent(out) :: nint
9119 integer(IK) :: err
9120 end function
9121#endif
9122
9123#if RK1_ENABLED
9124 module function QAGS_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9126 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK15_II_RK1
9127#endif
9128 use pm_kind, only: RKC => RK1
9129 procedure(real(RKC)) :: getFunc
9130 type(ninf_type) , intent(in) :: lb
9131 type(pinf_type) , intent(in) :: ub
9132 real(RKC) , intent(in) :: abstol
9133 real(RKC) , intent(in) :: reltol
9134 type(GK15_type) , intent(in) :: qrule
9135 type(weps_type) , intent(in) :: help
9136 real(RKC) , intent(out) :: integral, abserr
9137 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9138 integer(IK) , intent(out) , contiguous :: sindex(:)
9139 integer(IK) , intent(out) :: neval
9140 integer(IK) , intent(out) :: nint
9141 integer(IK) :: err
9142 end function
9143#endif
9144
9145 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9146
9147 end interface
9148
9149 ! QAGS_GK21
9150
9151 interface getQuadErr
9152
9153 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9154
9155#if RK5_ENABLED
9156 module function QAGS_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9158 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK5
9159#endif
9160 use pm_kind, only: RKC => RK5
9161 procedure(real(RKC)) :: getFunc
9162 real(RKC) , intent(in) :: lb
9163 real(RKC) , intent(in) :: ub
9164 real(RKC) , intent(in) :: abstol
9165 real(RKC) , intent(in) :: reltol
9166 type(GK21_type) , intent(in) :: qrule
9167 type(weps_type) , intent(in) :: help
9168 real(RKC) , intent(out) :: integral, abserr
9169 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9170 integer(IK) , intent(out) , contiguous :: sindex(:)
9171 integer(IK) , intent(out) :: neval
9172 integer(IK) , intent(out) :: nint
9173 integer(IK) :: err
9174 end function
9175#endif
9176
9177#if RK4_ENABLED
9178 module function QAGS_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9180 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK4
9181#endif
9182 use pm_kind, only: RKC => RK4
9183 procedure(real(RKC)) :: getFunc
9184 real(RKC) , intent(in) :: lb
9185 real(RKC) , intent(in) :: ub
9186 real(RKC) , intent(in) :: abstol
9187 real(RKC) , intent(in) :: reltol
9188 type(GK21_type) , intent(in) :: qrule
9189 type(weps_type) , intent(in) :: help
9190 real(RKC) , intent(out) :: integral, abserr
9191 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9192 integer(IK) , intent(out) , contiguous :: sindex(:)
9193 integer(IK) , intent(out) :: neval
9194 integer(IK) , intent(out) :: nint
9195 integer(IK) :: err
9196 end function
9197#endif
9198
9199#if RK3_ENABLED
9200 module function QAGS_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9202 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK3
9203#endif
9204 use pm_kind, only: RKC => RK3
9205 procedure(real(RKC)) :: getFunc
9206 real(RKC) , intent(in) :: lb
9207 real(RKC) , intent(in) :: ub
9208 real(RKC) , intent(in) :: abstol
9209 real(RKC) , intent(in) :: reltol
9210 type(GK21_type) , intent(in) :: qrule
9211 type(weps_type) , intent(in) :: help
9212 real(RKC) , intent(out) :: integral, abserr
9213 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9214 integer(IK) , intent(out) , contiguous :: sindex(:)
9215 integer(IK) , intent(out) :: neval
9216 integer(IK) , intent(out) :: nint
9217 integer(IK) :: err
9218 end function
9219#endif
9220
9221#if RK2_ENABLED
9222 module function QAGS_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9224 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK2
9225#endif
9226 use pm_kind, only: RKC => RK2
9227 procedure(real(RKC)) :: getFunc
9228 real(RKC) , intent(in) :: lb
9229 real(RKC) , intent(in) :: ub
9230 real(RKC) , intent(in) :: abstol
9231 real(RKC) , intent(in) :: reltol
9232 type(GK21_type) , intent(in) :: qrule
9233 type(weps_type) , intent(in) :: help
9234 real(RKC) , intent(out) :: integral, abserr
9235 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9236 integer(IK) , intent(out) , contiguous :: sindex(:)
9237 integer(IK) , intent(out) :: neval
9238 integer(IK) , intent(out) :: nint
9239 integer(IK) :: err
9240 end function
9241#endif
9242
9243#if RK1_ENABLED
9244 module function QAGS_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9246 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FF_RK1
9247#endif
9248 use pm_kind, only: RKC => RK1
9249 procedure(real(RKC)) :: getFunc
9250 real(RKC) , intent(in) :: lb
9251 real(RKC) , intent(in) :: ub
9252 real(RKC) , intent(in) :: abstol
9253 real(RKC) , intent(in) :: reltol
9254 type(GK21_type) , intent(in) :: qrule
9255 type(weps_type) , intent(in) :: help
9256 real(RKC) , intent(out) :: integral, abserr
9257 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9258 integer(IK) , intent(out) , contiguous :: sindex(:)
9259 integer(IK) , intent(out) :: neval
9260 integer(IK) , intent(out) :: nint
9261 integer(IK) :: err
9262 end function
9263#endif
9264
9265 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9266
9267#if RK5_ENABLED
9268 module function QAGS_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9270 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK5
9271#endif
9272 use pm_kind, only: RKC => RK5
9273 procedure(real(RKC)) :: getFunc
9274 real(RKC) , intent(in) :: lb
9275 type(pinf_type) , intent(in) :: ub
9276 real(RKC) , intent(in) :: abstol
9277 real(RKC) , intent(in) :: reltol
9278 type(GK21_type) , intent(in) :: qrule
9279 type(weps_type) , intent(in) :: help
9280 real(RKC) , intent(out) :: integral, abserr
9281 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9282 integer(IK) , intent(out) , contiguous :: sindex(:)
9283 integer(IK) , intent(out) :: neval
9284 integer(IK) , intent(out) :: nint
9285 integer(IK) :: err
9286 end function
9287#endif
9288
9289#if RK4_ENABLED
9290 module function QAGS_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9292 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK4
9293#endif
9294 use pm_kind, only: RKC => RK4
9295 procedure(real(RKC)) :: getFunc
9296 real(RKC) , intent(in) :: lb
9297 type(pinf_type) , intent(in) :: ub
9298 real(RKC) , intent(in) :: abstol
9299 real(RKC) , intent(in) :: reltol
9300 type(GK21_type) , intent(in) :: qrule
9301 type(weps_type) , intent(in) :: help
9302 real(RKC) , intent(out) :: integral, abserr
9303 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9304 integer(IK) , intent(out) , contiguous :: sindex(:)
9305 integer(IK) , intent(out) :: neval
9306 integer(IK) , intent(out) :: nint
9307 integer(IK) :: err
9308 end function
9309#endif
9310
9311#if RK3_ENABLED
9312 module function QAGS_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9314 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK3
9315#endif
9316 use pm_kind, only: RKC => RK3
9317 procedure(real(RKC)) :: getFunc
9318 real(RKC) , intent(in) :: lb
9319 type(pinf_type) , intent(in) :: ub
9320 real(RKC) , intent(in) :: abstol
9321 real(RKC) , intent(in) :: reltol
9322 type(GK21_type) , intent(in) :: qrule
9323 type(weps_type) , intent(in) :: help
9324 real(RKC) , intent(out) :: integral, abserr
9325 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9326 integer(IK) , intent(out) , contiguous :: sindex(:)
9327 integer(IK) , intent(out) :: neval
9328 integer(IK) , intent(out) :: nint
9329 integer(IK) :: err
9330 end function
9331#endif
9332
9333#if RK2_ENABLED
9334 module function QAGS_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9336 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK2
9337#endif
9338 use pm_kind, only: RKC => RK2
9339 procedure(real(RKC)) :: getFunc
9340 real(RKC) , intent(in) :: lb
9341 type(pinf_type) , intent(in) :: ub
9342 real(RKC) , intent(in) :: abstol
9343 real(RKC) , intent(in) :: reltol
9344 type(GK21_type) , intent(in) :: qrule
9345 type(weps_type) , intent(in) :: help
9346 real(RKC) , intent(out) :: integral, abserr
9347 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9348 integer(IK) , intent(out) , contiguous :: sindex(:)
9349 integer(IK) , intent(out) :: neval
9350 integer(IK) , intent(out) :: nint
9351 integer(IK) :: err
9352 end function
9353#endif
9354
9355#if RK1_ENABLED
9356 module function QAGS_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9358 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_FI_RK1
9359#endif
9360 use pm_kind, only: RKC => RK1
9361 procedure(real(RKC)) :: getFunc
9362 real(RKC) , intent(in) :: lb
9363 type(pinf_type) , intent(in) :: ub
9364 real(RKC) , intent(in) :: abstol
9365 real(RKC) , intent(in) :: reltol
9366 type(GK21_type) , intent(in) :: qrule
9367 type(weps_type) , intent(in) :: help
9368 real(RKC) , intent(out) :: integral, abserr
9369 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9370 integer(IK) , intent(out) , contiguous :: sindex(:)
9371 integer(IK) , intent(out) :: neval
9372 integer(IK) , intent(out) :: nint
9373 integer(IK) :: err
9374 end function
9375#endif
9376
9377 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9378
9379#if RK5_ENABLED
9380 module function QAGS_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9382 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK5
9383#endif
9384 use pm_kind, only: RKC => RK5
9385 procedure(real(RKC)) :: getFunc
9386 type(ninf_type) , intent(in) :: lb
9387 real(RKC) , intent(in) :: ub
9388 real(RKC) , intent(in) :: abstol
9389 real(RKC) , intent(in) :: reltol
9390 type(GK21_type) , intent(in) :: qrule
9391 type(weps_type) , intent(in) :: help
9392 real(RKC) , intent(out) :: integral, abserr
9393 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9394 integer(IK) , intent(out) , contiguous :: sindex(:)
9395 integer(IK) , intent(out) :: neval
9396 integer(IK) , intent(out) :: nint
9397 integer(IK) :: err
9398 end function
9399#endif
9400
9401#if RK4_ENABLED
9402 module function QAGS_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9404 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK4
9405#endif
9406 use pm_kind, only: RKC => RK4
9407 procedure(real(RKC)) :: getFunc
9408 type(ninf_type) , intent(in) :: lb
9409 real(RKC) , intent(in) :: ub
9410 real(RKC) , intent(in) :: abstol
9411 real(RKC) , intent(in) :: reltol
9412 type(GK21_type) , intent(in) :: qrule
9413 type(weps_type) , intent(in) :: help
9414 real(RKC) , intent(out) :: integral, abserr
9415 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9416 integer(IK) , intent(out) , contiguous :: sindex(:)
9417 integer(IK) , intent(out) :: neval
9418 integer(IK) , intent(out) :: nint
9419 integer(IK) :: err
9420 end function
9421#endif
9422
9423#if RK3_ENABLED
9424 module function QAGS_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9426 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK3
9427#endif
9428 use pm_kind, only: RKC => RK3
9429 procedure(real(RKC)) :: getFunc
9430 type(ninf_type) , intent(in) :: lb
9431 real(RKC) , intent(in) :: ub
9432 real(RKC) , intent(in) :: abstol
9433 real(RKC) , intent(in) :: reltol
9434 type(GK21_type) , intent(in) :: qrule
9435 type(weps_type) , intent(in) :: help
9436 real(RKC) , intent(out) :: integral, abserr
9437 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9438 integer(IK) , intent(out) , contiguous :: sindex(:)
9439 integer(IK) , intent(out) :: neval
9440 integer(IK) , intent(out) :: nint
9441 integer(IK) :: err
9442 end function
9443#endif
9444
9445#if RK2_ENABLED
9446 module function QAGS_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9448 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK2
9449#endif
9450 use pm_kind, only: RKC => RK2
9451 procedure(real(RKC)) :: getFunc
9452 type(ninf_type) , intent(in) :: lb
9453 real(RKC) , intent(in) :: ub
9454 real(RKC) , intent(in) :: abstol
9455 real(RKC) , intent(in) :: reltol
9456 type(GK21_type) , intent(in) :: qrule
9457 type(weps_type) , intent(in) :: help
9458 real(RKC) , intent(out) :: integral, abserr
9459 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9460 integer(IK) , intent(out) , contiguous :: sindex(:)
9461 integer(IK) , intent(out) :: neval
9462 integer(IK) , intent(out) :: nint
9463 integer(IK) :: err
9464 end function
9465#endif
9466
9467#if RK1_ENABLED
9468 module function QAGS_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9470 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_IF_RK1
9471#endif
9472 use pm_kind, only: RKC => RK1
9473 procedure(real(RKC)) :: getFunc
9474 type(ninf_type) , intent(in) :: lb
9475 real(RKC) , intent(in) :: ub
9476 real(RKC) , intent(in) :: abstol
9477 real(RKC) , intent(in) :: reltol
9478 type(GK21_type) , intent(in) :: qrule
9479 type(weps_type) , intent(in) :: help
9480 real(RKC) , intent(out) :: integral, abserr
9481 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9482 integer(IK) , intent(out) , contiguous :: sindex(:)
9483 integer(IK) , intent(out) :: neval
9484 integer(IK) , intent(out) :: nint
9485 integer(IK) :: err
9486 end function
9487#endif
9488
9489 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9490
9491#if RK5_ENABLED
9492 module function QAGS_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9494 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK5
9495#endif
9496 use pm_kind, only: RKC => RK5
9497 procedure(real(RKC)) :: getFunc
9498 type(ninf_type) , intent(in) :: lb
9499 type(pinf_type) , intent(in) :: ub
9500 real(RKC) , intent(in) :: abstol
9501 real(RKC) , intent(in) :: reltol
9502 type(GK21_type) , intent(in) :: qrule
9503 type(weps_type) , intent(in) :: help
9504 real(RKC) , intent(out) :: integral, abserr
9505 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9506 integer(IK) , intent(out) , contiguous :: sindex(:)
9507 integer(IK) , intent(out) :: neval
9508 integer(IK) , intent(out) :: nint
9509 integer(IK) :: err
9510 end function
9511#endif
9512
9513#if RK4_ENABLED
9514 module function QAGS_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9515#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9516 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK4
9517#endif
9518 use pm_kind, only: RKC => RK4
9519 procedure(real(RKC)) :: getFunc
9520 type(ninf_type) , intent(in) :: lb
9521 type(pinf_type) , intent(in) :: ub
9522 real(RKC) , intent(in) :: abstol
9523 real(RKC) , intent(in) :: reltol
9524 type(GK21_type) , intent(in) :: qrule
9525 type(weps_type) , intent(in) :: help
9526 real(RKC) , intent(out) :: integral, abserr
9527 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9528 integer(IK) , intent(out) , contiguous :: sindex(:)
9529 integer(IK) , intent(out) :: neval
9530 integer(IK) , intent(out) :: nint
9531 integer(IK) :: err
9532 end function
9533#endif
9534
9535#if RK3_ENABLED
9536 module function QAGS_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9538 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK3
9539#endif
9540 use pm_kind, only: RKC => RK3
9541 procedure(real(RKC)) :: getFunc
9542 type(ninf_type) , intent(in) :: lb
9543 type(pinf_type) , intent(in) :: ub
9544 real(RKC) , intent(in) :: abstol
9545 real(RKC) , intent(in) :: reltol
9546 type(GK21_type) , intent(in) :: qrule
9547 type(weps_type) , intent(in) :: help
9548 real(RKC) , intent(out) :: integral, abserr
9549 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9550 integer(IK) , intent(out) , contiguous :: sindex(:)
9551 integer(IK) , intent(out) :: neval
9552 integer(IK) , intent(out) :: nint
9553 integer(IK) :: err
9554 end function
9555#endif
9556
9557#if RK2_ENABLED
9558 module function QAGS_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9560 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK2
9561#endif
9562 use pm_kind, only: RKC => RK2
9563 procedure(real(RKC)) :: getFunc
9564 type(ninf_type) , intent(in) :: lb
9565 type(pinf_type) , intent(in) :: ub
9566 real(RKC) , intent(in) :: abstol
9567 real(RKC) , intent(in) :: reltol
9568 type(GK21_type) , intent(in) :: qrule
9569 type(weps_type) , intent(in) :: help
9570 real(RKC) , intent(out) :: integral, abserr
9571 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9572 integer(IK) , intent(out) , contiguous :: sindex(:)
9573 integer(IK) , intent(out) :: neval
9574 integer(IK) , intent(out) :: nint
9575 integer(IK) :: err
9576 end function
9577#endif
9578
9579#if RK1_ENABLED
9580 module function QAGS_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9582 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK21_II_RK1
9583#endif
9584 use pm_kind, only: RKC => RK1
9585 procedure(real(RKC)) :: getFunc
9586 type(ninf_type) , intent(in) :: lb
9587 type(pinf_type) , intent(in) :: ub
9588 real(RKC) , intent(in) :: abstol
9589 real(RKC) , intent(in) :: reltol
9590 type(GK21_type) , intent(in) :: qrule
9591 type(weps_type) , intent(in) :: help
9592 real(RKC) , intent(out) :: integral, abserr
9593 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9594 integer(IK) , intent(out) , contiguous :: sindex(:)
9595 integer(IK) , intent(out) :: neval
9596 integer(IK) , intent(out) :: nint
9597 integer(IK) :: err
9598 end function
9599#endif
9600
9601 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9602
9603 end interface
9604
9605 ! QAGS_GK31
9606
9607 interface getQuadErr
9608
9609 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9610
9611#if RK5_ENABLED
9612 module function QAGS_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9614 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK5
9615#endif
9616 use pm_kind, only: RKC => RK5
9617 procedure(real(RKC)) :: getFunc
9618 real(RKC) , intent(in) :: lb
9619 real(RKC) , intent(in) :: ub
9620 real(RKC) , intent(in) :: abstol
9621 real(RKC) , intent(in) :: reltol
9622 type(GK31_type) , intent(in) :: qrule
9623 type(weps_type) , intent(in) :: help
9624 real(RKC) , intent(out) :: integral, abserr
9625 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9626 integer(IK) , intent(out) , contiguous :: sindex(:)
9627 integer(IK) , intent(out) :: neval
9628 integer(IK) , intent(out) :: nint
9629 integer(IK) :: err
9630 end function
9631#endif
9632
9633#if RK4_ENABLED
9634 module function QAGS_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9635#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9636 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK4
9637#endif
9638 use pm_kind, only: RKC => RK4
9639 procedure(real(RKC)) :: getFunc
9640 real(RKC) , intent(in) :: lb
9641 real(RKC) , intent(in) :: ub
9642 real(RKC) , intent(in) :: abstol
9643 real(RKC) , intent(in) :: reltol
9644 type(GK31_type) , intent(in) :: qrule
9645 type(weps_type) , intent(in) :: help
9646 real(RKC) , intent(out) :: integral, abserr
9647 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9648 integer(IK) , intent(out) , contiguous :: sindex(:)
9649 integer(IK) , intent(out) :: neval
9650 integer(IK) , intent(out) :: nint
9651 integer(IK) :: err
9652 end function
9653#endif
9654
9655#if RK3_ENABLED
9656 module function QAGS_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9658 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK3
9659#endif
9660 use pm_kind, only: RKC => RK3
9661 procedure(real(RKC)) :: getFunc
9662 real(RKC) , intent(in) :: lb
9663 real(RKC) , intent(in) :: ub
9664 real(RKC) , intent(in) :: abstol
9665 real(RKC) , intent(in) :: reltol
9666 type(GK31_type) , intent(in) :: qrule
9667 type(weps_type) , intent(in) :: help
9668 real(RKC) , intent(out) :: integral, abserr
9669 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9670 integer(IK) , intent(out) , contiguous :: sindex(:)
9671 integer(IK) , intent(out) :: neval
9672 integer(IK) , intent(out) :: nint
9673 integer(IK) :: err
9674 end function
9675#endif
9676
9677#if RK2_ENABLED
9678 module function QAGS_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9680 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK2
9681#endif
9682 use pm_kind, only: RKC => RK2
9683 procedure(real(RKC)) :: getFunc
9684 real(RKC) , intent(in) :: lb
9685 real(RKC) , intent(in) :: ub
9686 real(RKC) , intent(in) :: abstol
9687 real(RKC) , intent(in) :: reltol
9688 type(GK31_type) , intent(in) :: qrule
9689 type(weps_type) , intent(in) :: help
9690 real(RKC) , intent(out) :: integral, abserr
9691 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9692 integer(IK) , intent(out) , contiguous :: sindex(:)
9693 integer(IK) , intent(out) :: neval
9694 integer(IK) , intent(out) :: nint
9695 integer(IK) :: err
9696 end function
9697#endif
9698
9699#if RK1_ENABLED
9700 module function QAGS_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9702 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FF_RK1
9703#endif
9704 use pm_kind, only: RKC => RK1
9705 procedure(real(RKC)) :: getFunc
9706 real(RKC) , intent(in) :: lb
9707 real(RKC) , intent(in) :: ub
9708 real(RKC) , intent(in) :: abstol
9709 real(RKC) , intent(in) :: reltol
9710 type(GK31_type) , intent(in) :: qrule
9711 type(weps_type) , intent(in) :: help
9712 real(RKC) , intent(out) :: integral, abserr
9713 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9714 integer(IK) , intent(out) , contiguous :: sindex(:)
9715 integer(IK) , intent(out) :: neval
9716 integer(IK) , intent(out) :: nint
9717 integer(IK) :: err
9718 end function
9719#endif
9720
9721 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9722
9723#if RK5_ENABLED
9724 module function QAGS_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9726 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK5
9727#endif
9728 use pm_kind, only: RKC => RK5
9729 procedure(real(RKC)) :: getFunc
9730 real(RKC) , intent(in) :: lb
9731 type(pinf_type) , intent(in) :: ub
9732 real(RKC) , intent(in) :: abstol
9733 real(RKC) , intent(in) :: reltol
9734 type(GK31_type) , intent(in) :: qrule
9735 type(weps_type) , intent(in) :: help
9736 real(RKC) , intent(out) :: integral, abserr
9737 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9738 integer(IK) , intent(out) , contiguous :: sindex(:)
9739 integer(IK) , intent(out) :: neval
9740 integer(IK) , intent(out) :: nint
9741 integer(IK) :: err
9742 end function
9743#endif
9744
9745#if RK4_ENABLED
9746 module function QAGS_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9748 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK4
9749#endif
9750 use pm_kind, only: RKC => RK4
9751 procedure(real(RKC)) :: getFunc
9752 real(RKC) , intent(in) :: lb
9753 type(pinf_type) , intent(in) :: ub
9754 real(RKC) , intent(in) :: abstol
9755 real(RKC) , intent(in) :: reltol
9756 type(GK31_type) , intent(in) :: qrule
9757 type(weps_type) , intent(in) :: help
9758 real(RKC) , intent(out) :: integral, abserr
9759 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9760 integer(IK) , intent(out) , contiguous :: sindex(:)
9761 integer(IK) , intent(out) :: neval
9762 integer(IK) , intent(out) :: nint
9763 integer(IK) :: err
9764 end function
9765#endif
9766
9767#if RK3_ENABLED
9768 module function QAGS_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9769#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9770 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK3
9771#endif
9772 use pm_kind, only: RKC => RK3
9773 procedure(real(RKC)) :: getFunc
9774 real(RKC) , intent(in) :: lb
9775 type(pinf_type) , intent(in) :: ub
9776 real(RKC) , intent(in) :: abstol
9777 real(RKC) , intent(in) :: reltol
9778 type(GK31_type) , intent(in) :: qrule
9779 type(weps_type) , intent(in) :: help
9780 real(RKC) , intent(out) :: integral, abserr
9781 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9782 integer(IK) , intent(out) , contiguous :: sindex(:)
9783 integer(IK) , intent(out) :: neval
9784 integer(IK) , intent(out) :: nint
9785 integer(IK) :: err
9786 end function
9787#endif
9788
9789#if RK2_ENABLED
9790 module function QAGS_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9791#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9792 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK2
9793#endif
9794 use pm_kind, only: RKC => RK2
9795 procedure(real(RKC)) :: getFunc
9796 real(RKC) , intent(in) :: lb
9797 type(pinf_type) , intent(in) :: ub
9798 real(RKC) , intent(in) :: abstol
9799 real(RKC) , intent(in) :: reltol
9800 type(GK31_type) , intent(in) :: qrule
9801 type(weps_type) , intent(in) :: help
9802 real(RKC) , intent(out) :: integral, abserr
9803 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9804 integer(IK) , intent(out) , contiguous :: sindex(:)
9805 integer(IK) , intent(out) :: neval
9806 integer(IK) , intent(out) :: nint
9807 integer(IK) :: err
9808 end function
9809#endif
9810
9811#if RK1_ENABLED
9812 module function QAGS_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9813#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9814 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_FI_RK1
9815#endif
9816 use pm_kind, only: RKC => RK1
9817 procedure(real(RKC)) :: getFunc
9818 real(RKC) , intent(in) :: lb
9819 type(pinf_type) , intent(in) :: ub
9820 real(RKC) , intent(in) :: abstol
9821 real(RKC) , intent(in) :: reltol
9822 type(GK31_type) , intent(in) :: qrule
9823 type(weps_type) , intent(in) :: help
9824 real(RKC) , intent(out) :: integral, abserr
9825 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9826 integer(IK) , intent(out) , contiguous :: sindex(:)
9827 integer(IK) , intent(out) :: neval
9828 integer(IK) , intent(out) :: nint
9829 integer(IK) :: err
9830 end function
9831#endif
9832
9833 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9834
9835#if RK5_ENABLED
9836 module function QAGS_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9838 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK5
9839#endif
9840 use pm_kind, only: RKC => RK5
9841 procedure(real(RKC)) :: getFunc
9842 type(ninf_type) , intent(in) :: lb
9843 real(RKC) , intent(in) :: ub
9844 real(RKC) , intent(in) :: abstol
9845 real(RKC) , intent(in) :: reltol
9846 type(GK31_type) , intent(in) :: qrule
9847 type(weps_type) , intent(in) :: help
9848 real(RKC) , intent(out) :: integral, abserr
9849 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9850 integer(IK) , intent(out) , contiguous :: sindex(:)
9851 integer(IK) , intent(out) :: neval
9852 integer(IK) , intent(out) :: nint
9853 integer(IK) :: err
9854 end function
9855#endif
9856
9857#if RK4_ENABLED
9858 module function QAGS_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9860 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK4
9861#endif
9862 use pm_kind, only: RKC => RK4
9863 procedure(real(RKC)) :: getFunc
9864 type(ninf_type) , intent(in) :: lb
9865 real(RKC) , intent(in) :: ub
9866 real(RKC) , intent(in) :: abstol
9867 real(RKC) , intent(in) :: reltol
9868 type(GK31_type) , intent(in) :: qrule
9869 type(weps_type) , intent(in) :: help
9870 real(RKC) , intent(out) :: integral, abserr
9871 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9872 integer(IK) , intent(out) , contiguous :: sindex(:)
9873 integer(IK) , intent(out) :: neval
9874 integer(IK) , intent(out) :: nint
9875 integer(IK) :: err
9876 end function
9877#endif
9878
9879#if RK3_ENABLED
9880 module function QAGS_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9882 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK3
9883#endif
9884 use pm_kind, only: RKC => RK3
9885 procedure(real(RKC)) :: getFunc
9886 type(ninf_type) , intent(in) :: lb
9887 real(RKC) , intent(in) :: ub
9888 real(RKC) , intent(in) :: abstol
9889 real(RKC) , intent(in) :: reltol
9890 type(GK31_type) , intent(in) :: qrule
9891 type(weps_type) , intent(in) :: help
9892 real(RKC) , intent(out) :: integral, abserr
9893 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9894 integer(IK) , intent(out) , contiguous :: sindex(:)
9895 integer(IK) , intent(out) :: neval
9896 integer(IK) , intent(out) :: nint
9897 integer(IK) :: err
9898 end function
9899#endif
9900
9901#if RK2_ENABLED
9902 module function QAGS_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9904 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK2
9905#endif
9906 use pm_kind, only: RKC => RK2
9907 procedure(real(RKC)) :: getFunc
9908 type(ninf_type) , intent(in) :: lb
9909 real(RKC) , intent(in) :: ub
9910 real(RKC) , intent(in) :: abstol
9911 real(RKC) , intent(in) :: reltol
9912 type(GK31_type) , intent(in) :: qrule
9913 type(weps_type) , intent(in) :: help
9914 real(RKC) , intent(out) :: integral, abserr
9915 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9916 integer(IK) , intent(out) , contiguous :: sindex(:)
9917 integer(IK) , intent(out) :: neval
9918 integer(IK) , intent(out) :: nint
9919 integer(IK) :: err
9920 end function
9921#endif
9922
9923#if RK1_ENABLED
9924 module function QAGS_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9926 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_IF_RK1
9927#endif
9928 use pm_kind, only: RKC => RK1
9929 procedure(real(RKC)) :: getFunc
9930 type(ninf_type) , intent(in) :: lb
9931 real(RKC) , intent(in) :: ub
9932 real(RKC) , intent(in) :: abstol
9933 real(RKC) , intent(in) :: reltol
9934 type(GK31_type) , intent(in) :: qrule
9935 type(weps_type) , intent(in) :: help
9936 real(RKC) , intent(out) :: integral, abserr
9937 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9938 integer(IK) , intent(out) , contiguous :: sindex(:)
9939 integer(IK) , intent(out) :: neval
9940 integer(IK) , intent(out) :: nint
9941 integer(IK) :: err
9942 end function
9943#endif
9944
9945 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
9946
9947#if RK5_ENABLED
9948 module function QAGS_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9949#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9950 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK5
9951#endif
9952 use pm_kind, only: RKC => RK5
9953 procedure(real(RKC)) :: getFunc
9954 type(ninf_type) , intent(in) :: lb
9955 type(pinf_type) , intent(in) :: ub
9956 real(RKC) , intent(in) :: abstol
9957 real(RKC) , intent(in) :: reltol
9958 type(GK31_type) , intent(in) :: qrule
9959 type(weps_type) , intent(in) :: help
9960 real(RKC) , intent(out) :: integral, abserr
9961 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9962 integer(IK) , intent(out) , contiguous :: sindex(:)
9963 integer(IK) , intent(out) :: neval
9964 integer(IK) , intent(out) :: nint
9965 integer(IK) :: err
9966 end function
9967#endif
9968
9969#if RK4_ENABLED
9970 module function QAGS_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9971#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9972 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK4
9973#endif
9974 use pm_kind, only: RKC => RK4
9975 procedure(real(RKC)) :: getFunc
9976 type(ninf_type) , intent(in) :: lb
9977 type(pinf_type) , intent(in) :: ub
9978 real(RKC) , intent(in) :: abstol
9979 real(RKC) , intent(in) :: reltol
9980 type(GK31_type) , intent(in) :: qrule
9981 type(weps_type) , intent(in) :: help
9982 real(RKC) , intent(out) :: integral, abserr
9983 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
9984 integer(IK) , intent(out) , contiguous :: sindex(:)
9985 integer(IK) , intent(out) :: neval
9986 integer(IK) , intent(out) :: nint
9987 integer(IK) :: err
9988 end function
9989#endif
9990
9991#if RK3_ENABLED
9992 module function QAGS_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
9993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
9994 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK3
9995#endif
9996 use pm_kind, only: RKC => RK3
9997 procedure(real(RKC)) :: getFunc
9998 type(ninf_type) , intent(in) :: lb
9999 type(pinf_type) , intent(in) :: ub
10000 real(RKC) , intent(in) :: abstol
10001 real(RKC) , intent(in) :: reltol
10002 type(GK31_type) , intent(in) :: qrule
10003 type(weps_type) , intent(in) :: help
10004 real(RKC) , intent(out) :: integral, abserr
10005 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10006 integer(IK) , intent(out) , contiguous :: sindex(:)
10007 integer(IK) , intent(out) :: neval
10008 integer(IK) , intent(out) :: nint
10009 integer(IK) :: err
10010 end function
10011#endif
10012
10013#if RK2_ENABLED
10014 module function QAGS_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10016 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK2
10017#endif
10018 use pm_kind, only: RKC => RK2
10019 procedure(real(RKC)) :: getFunc
10020 type(ninf_type) , intent(in) :: lb
10021 type(pinf_type) , intent(in) :: ub
10022 real(RKC) , intent(in) :: abstol
10023 real(RKC) , intent(in) :: reltol
10024 type(GK31_type) , intent(in) :: qrule
10025 type(weps_type) , intent(in) :: help
10026 real(RKC) , intent(out) :: integral, abserr
10027 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10028 integer(IK) , intent(out) , contiguous :: sindex(:)
10029 integer(IK) , intent(out) :: neval
10030 integer(IK) , intent(out) :: nint
10031 integer(IK) :: err
10032 end function
10033#endif
10034
10035#if RK1_ENABLED
10036 module function QAGS_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10038 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK31_II_RK1
10039#endif
10040 use pm_kind, only: RKC => RK1
10041 procedure(real(RKC)) :: getFunc
10042 type(ninf_type) , intent(in) :: lb
10043 type(pinf_type) , intent(in) :: ub
10044 real(RKC) , intent(in) :: abstol
10045 real(RKC) , intent(in) :: reltol
10046 type(GK31_type) , intent(in) :: qrule
10047 type(weps_type) , intent(in) :: help
10048 real(RKC) , intent(out) :: integral, abserr
10049 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10050 integer(IK) , intent(out) , contiguous :: sindex(:)
10051 integer(IK) , intent(out) :: neval
10052 integer(IK) , intent(out) :: nint
10053 integer(IK) :: err
10054 end function
10055#endif
10056
10057 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10058
10059 end interface
10060
10061 ! QAGS_GK41
10062
10063 interface getQuadErr
10064
10065 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10066
10067#if RK5_ENABLED
10068 module function QAGS_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10070 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK5
10071#endif
10072 use pm_kind, only: RKC => RK5
10073 procedure(real(RKC)) :: getFunc
10074 real(RKC) , intent(in) :: lb
10075 real(RKC) , intent(in) :: ub
10076 real(RKC) , intent(in) :: abstol
10077 real(RKC) , intent(in) :: reltol
10078 type(GK41_type) , intent(in) :: qrule
10079 type(weps_type) , intent(in) :: help
10080 real(RKC) , intent(out) :: integral, abserr
10081 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10082 integer(IK) , intent(out) , contiguous :: sindex(:)
10083 integer(IK) , intent(out) :: neval
10084 integer(IK) , intent(out) :: nint
10085 integer(IK) :: err
10086 end function
10087#endif
10088
10089#if RK4_ENABLED
10090 module function QAGS_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10092 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK4
10093#endif
10094 use pm_kind, only: RKC => RK4
10095 procedure(real(RKC)) :: getFunc
10096 real(RKC) , intent(in) :: lb
10097 real(RKC) , intent(in) :: ub
10098 real(RKC) , intent(in) :: abstol
10099 real(RKC) , intent(in) :: reltol
10100 type(GK41_type) , intent(in) :: qrule
10101 type(weps_type) , intent(in) :: help
10102 real(RKC) , intent(out) :: integral, abserr
10103 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10104 integer(IK) , intent(out) , contiguous :: sindex(:)
10105 integer(IK) , intent(out) :: neval
10106 integer(IK) , intent(out) :: nint
10107 integer(IK) :: err
10108 end function
10109#endif
10110
10111#if RK3_ENABLED
10112 module function QAGS_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10114 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK3
10115#endif
10116 use pm_kind, only: RKC => RK3
10117 procedure(real(RKC)) :: getFunc
10118 real(RKC) , intent(in) :: lb
10119 real(RKC) , intent(in) :: ub
10120 real(RKC) , intent(in) :: abstol
10121 real(RKC) , intent(in) :: reltol
10122 type(GK41_type) , intent(in) :: qrule
10123 type(weps_type) , intent(in) :: help
10124 real(RKC) , intent(out) :: integral, abserr
10125 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10126 integer(IK) , intent(out) , contiguous :: sindex(:)
10127 integer(IK) , intent(out) :: neval
10128 integer(IK) , intent(out) :: nint
10129 integer(IK) :: err
10130 end function
10131#endif
10132
10133#if RK2_ENABLED
10134 module function QAGS_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10135#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10136 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK2
10137#endif
10138 use pm_kind, only: RKC => RK2
10139 procedure(real(RKC)) :: getFunc
10140 real(RKC) , intent(in) :: lb
10141 real(RKC) , intent(in) :: ub
10142 real(RKC) , intent(in) :: abstol
10143 real(RKC) , intent(in) :: reltol
10144 type(GK41_type) , intent(in) :: qrule
10145 type(weps_type) , intent(in) :: help
10146 real(RKC) , intent(out) :: integral, abserr
10147 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10148 integer(IK) , intent(out) , contiguous :: sindex(:)
10149 integer(IK) , intent(out) :: neval
10150 integer(IK) , intent(out) :: nint
10151 integer(IK) :: err
10152 end function
10153#endif
10154
10155#if RK1_ENABLED
10156 module function QAGS_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10157#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10158 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FF_RK1
10159#endif
10160 use pm_kind, only: RKC => RK1
10161 procedure(real(RKC)) :: getFunc
10162 real(RKC) , intent(in) :: lb
10163 real(RKC) , intent(in) :: ub
10164 real(RKC) , intent(in) :: abstol
10165 real(RKC) , intent(in) :: reltol
10166 type(GK41_type) , intent(in) :: qrule
10167 type(weps_type) , intent(in) :: help
10168 real(RKC) , intent(out) :: integral, abserr
10169 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10170 integer(IK) , intent(out) , contiguous :: sindex(:)
10171 integer(IK) , intent(out) :: neval
10172 integer(IK) , intent(out) :: nint
10173 integer(IK) :: err
10174 end function
10175#endif
10176
10177 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10178
10179#if RK5_ENABLED
10180 module function QAGS_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10181#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10182 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK5
10183#endif
10184 use pm_kind, only: RKC => RK5
10185 procedure(real(RKC)) :: getFunc
10186 real(RKC) , intent(in) :: lb
10187 type(pinf_type) , intent(in) :: ub
10188 real(RKC) , intent(in) :: abstol
10189 real(RKC) , intent(in) :: reltol
10190 type(GK41_type) , intent(in) :: qrule
10191 type(weps_type) , intent(in) :: help
10192 real(RKC) , intent(out) :: integral, abserr
10193 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10194 integer(IK) , intent(out) , contiguous :: sindex(:)
10195 integer(IK) , intent(out) :: neval
10196 integer(IK) , intent(out) :: nint
10197 integer(IK) :: err
10198 end function
10199#endif
10200
10201#if RK4_ENABLED
10202 module function QAGS_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10204 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK4
10205#endif
10206 use pm_kind, only: RKC => RK4
10207 procedure(real(RKC)) :: getFunc
10208 real(RKC) , intent(in) :: lb
10209 type(pinf_type) , intent(in) :: ub
10210 real(RKC) , intent(in) :: abstol
10211 real(RKC) , intent(in) :: reltol
10212 type(GK41_type) , intent(in) :: qrule
10213 type(weps_type) , intent(in) :: help
10214 real(RKC) , intent(out) :: integral, abserr
10215 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10216 integer(IK) , intent(out) , contiguous :: sindex(:)
10217 integer(IK) , intent(out) :: neval
10218 integer(IK) , intent(out) :: nint
10219 integer(IK) :: err
10220 end function
10221#endif
10222
10223#if RK3_ENABLED
10224 module function QAGS_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10226 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK3
10227#endif
10228 use pm_kind, only: RKC => RK3
10229 procedure(real(RKC)) :: getFunc
10230 real(RKC) , intent(in) :: lb
10231 type(pinf_type) , intent(in) :: ub
10232 real(RKC) , intent(in) :: abstol
10233 real(RKC) , intent(in) :: reltol
10234 type(GK41_type) , intent(in) :: qrule
10235 type(weps_type) , intent(in) :: help
10236 real(RKC) , intent(out) :: integral, abserr
10237 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10238 integer(IK) , intent(out) , contiguous :: sindex(:)
10239 integer(IK) , intent(out) :: neval
10240 integer(IK) , intent(out) :: nint
10241 integer(IK) :: err
10242 end function
10243#endif
10244
10245#if RK2_ENABLED
10246 module function QAGS_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10247#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10248 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK2
10249#endif
10250 use pm_kind, only: RKC => RK2
10251 procedure(real(RKC)) :: getFunc
10252 real(RKC) , intent(in) :: lb
10253 type(pinf_type) , intent(in) :: ub
10254 real(RKC) , intent(in) :: abstol
10255 real(RKC) , intent(in) :: reltol
10256 type(GK41_type) , intent(in) :: qrule
10257 type(weps_type) , intent(in) :: help
10258 real(RKC) , intent(out) :: integral, abserr
10259 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10260 integer(IK) , intent(out) , contiguous :: sindex(:)
10261 integer(IK) , intent(out) :: neval
10262 integer(IK) , intent(out) :: nint
10263 integer(IK) :: err
10264 end function
10265#endif
10266
10267#if RK1_ENABLED
10268 module function QAGS_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10270 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_FI_RK1
10271#endif
10272 use pm_kind, only: RKC => RK1
10273 procedure(real(RKC)) :: getFunc
10274 real(RKC) , intent(in) :: lb
10275 type(pinf_type) , intent(in) :: ub
10276 real(RKC) , intent(in) :: abstol
10277 real(RKC) , intent(in) :: reltol
10278 type(GK41_type) , intent(in) :: qrule
10279 type(weps_type) , intent(in) :: help
10280 real(RKC) , intent(out) :: integral, abserr
10281 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10282 integer(IK) , intent(out) , contiguous :: sindex(:)
10283 integer(IK) , intent(out) :: neval
10284 integer(IK) , intent(out) :: nint
10285 integer(IK) :: err
10286 end function
10287#endif
10288
10289 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10290
10291#if RK5_ENABLED
10292 module function QAGS_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10294 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK5
10295#endif
10296 use pm_kind, only: RKC => RK5
10297 procedure(real(RKC)) :: getFunc
10298 type(ninf_type) , intent(in) :: lb
10299 real(RKC) , intent(in) :: ub
10300 real(RKC) , intent(in) :: abstol
10301 real(RKC) , intent(in) :: reltol
10302 type(GK41_type) , intent(in) :: qrule
10303 type(weps_type) , intent(in) :: help
10304 real(RKC) , intent(out) :: integral, abserr
10305 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10306 integer(IK) , intent(out) , contiguous :: sindex(:)
10307 integer(IK) , intent(out) :: neval
10308 integer(IK) , intent(out) :: nint
10309 integer(IK) :: err
10310 end function
10311#endif
10312
10313#if RK4_ENABLED
10314 module function QAGS_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10315#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10316 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK4
10317#endif
10318 use pm_kind, only: RKC => RK4
10319 procedure(real(RKC)) :: getFunc
10320 type(ninf_type) , intent(in) :: lb
10321 real(RKC) , intent(in) :: ub
10322 real(RKC) , intent(in) :: abstol
10323 real(RKC) , intent(in) :: reltol
10324 type(GK41_type) , intent(in) :: qrule
10325 type(weps_type) , intent(in) :: help
10326 real(RKC) , intent(out) :: integral, abserr
10327 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10328 integer(IK) , intent(out) , contiguous :: sindex(:)
10329 integer(IK) , intent(out) :: neval
10330 integer(IK) , intent(out) :: nint
10331 integer(IK) :: err
10332 end function
10333#endif
10334
10335#if RK3_ENABLED
10336 module function QAGS_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10338 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK3
10339#endif
10340 use pm_kind, only: RKC => RK3
10341 procedure(real(RKC)) :: getFunc
10342 type(ninf_type) , intent(in) :: lb
10343 real(RKC) , intent(in) :: ub
10344 real(RKC) , intent(in) :: abstol
10345 real(RKC) , intent(in) :: reltol
10346 type(GK41_type) , intent(in) :: qrule
10347 type(weps_type) , intent(in) :: help
10348 real(RKC) , intent(out) :: integral, abserr
10349 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10350 integer(IK) , intent(out) , contiguous :: sindex(:)
10351 integer(IK) , intent(out) :: neval
10352 integer(IK) , intent(out) :: nint
10353 integer(IK) :: err
10354 end function
10355#endif
10356
10357#if RK2_ENABLED
10358 module function QAGS_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10360 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK2
10361#endif
10362 use pm_kind, only: RKC => RK2
10363 procedure(real(RKC)) :: getFunc
10364 type(ninf_type) , intent(in) :: lb
10365 real(RKC) , intent(in) :: ub
10366 real(RKC) , intent(in) :: abstol
10367 real(RKC) , intent(in) :: reltol
10368 type(GK41_type) , intent(in) :: qrule
10369 type(weps_type) , intent(in) :: help
10370 real(RKC) , intent(out) :: integral, abserr
10371 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10372 integer(IK) , intent(out) , contiguous :: sindex(:)
10373 integer(IK) , intent(out) :: neval
10374 integer(IK) , intent(out) :: nint
10375 integer(IK) :: err
10376 end function
10377#endif
10378
10379#if RK1_ENABLED
10380 module function QAGS_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10381#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10382 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_IF_RK1
10383#endif
10384 use pm_kind, only: RKC => RK1
10385 procedure(real(RKC)) :: getFunc
10386 type(ninf_type) , intent(in) :: lb
10387 real(RKC) , intent(in) :: ub
10388 real(RKC) , intent(in) :: abstol
10389 real(RKC) , intent(in) :: reltol
10390 type(GK41_type) , intent(in) :: qrule
10391 type(weps_type) , intent(in) :: help
10392 real(RKC) , intent(out) :: integral, abserr
10393 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10394 integer(IK) , intent(out) , contiguous :: sindex(:)
10395 integer(IK) , intent(out) :: neval
10396 integer(IK) , intent(out) :: nint
10397 integer(IK) :: err
10398 end function
10399#endif
10400
10401 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10402
10403#if RK5_ENABLED
10404 module function QAGS_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10406 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK5
10407#endif
10408 use pm_kind, only: RKC => RK5
10409 procedure(real(RKC)) :: getFunc
10410 type(ninf_type) , intent(in) :: lb
10411 type(pinf_type) , intent(in) :: ub
10412 real(RKC) , intent(in) :: abstol
10413 real(RKC) , intent(in) :: reltol
10414 type(GK41_type) , intent(in) :: qrule
10415 type(weps_type) , intent(in) :: help
10416 real(RKC) , intent(out) :: integral, abserr
10417 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10418 integer(IK) , intent(out) , contiguous :: sindex(:)
10419 integer(IK) , intent(out) :: neval
10420 integer(IK) , intent(out) :: nint
10421 integer(IK) :: err
10422 end function
10423#endif
10424
10425#if RK4_ENABLED
10426 module function QAGS_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10428 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK4
10429#endif
10430 use pm_kind, only: RKC => RK4
10431 procedure(real(RKC)) :: getFunc
10432 type(ninf_type) , intent(in) :: lb
10433 type(pinf_type) , intent(in) :: ub
10434 real(RKC) , intent(in) :: abstol
10435 real(RKC) , intent(in) :: reltol
10436 type(GK41_type) , intent(in) :: qrule
10437 type(weps_type) , intent(in) :: help
10438 real(RKC) , intent(out) :: integral, abserr
10439 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10440 integer(IK) , intent(out) , contiguous :: sindex(:)
10441 integer(IK) , intent(out) :: neval
10442 integer(IK) , intent(out) :: nint
10443 integer(IK) :: err
10444 end function
10445#endif
10446
10447#if RK3_ENABLED
10448 module function QAGS_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10450 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK3
10451#endif
10452 use pm_kind, only: RKC => RK3
10453 procedure(real(RKC)) :: getFunc
10454 type(ninf_type) , intent(in) :: lb
10455 type(pinf_type) , intent(in) :: ub
10456 real(RKC) , intent(in) :: abstol
10457 real(RKC) , intent(in) :: reltol
10458 type(GK41_type) , intent(in) :: qrule
10459 type(weps_type) , intent(in) :: help
10460 real(RKC) , intent(out) :: integral, abserr
10461 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10462 integer(IK) , intent(out) , contiguous :: sindex(:)
10463 integer(IK) , intent(out) :: neval
10464 integer(IK) , intent(out) :: nint
10465 integer(IK) :: err
10466 end function
10467#endif
10468
10469#if RK2_ENABLED
10470 module function QAGS_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10471#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10472 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK2
10473#endif
10474 use pm_kind, only: RKC => RK2
10475 procedure(real(RKC)) :: getFunc
10476 type(ninf_type) , intent(in) :: lb
10477 type(pinf_type) , intent(in) :: ub
10478 real(RKC) , intent(in) :: abstol
10479 real(RKC) , intent(in) :: reltol
10480 type(GK41_type) , intent(in) :: qrule
10481 type(weps_type) , intent(in) :: help
10482 real(RKC) , intent(out) :: integral, abserr
10483 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10484 integer(IK) , intent(out) , contiguous :: sindex(:)
10485 integer(IK) , intent(out) :: neval
10486 integer(IK) , intent(out) :: nint
10487 integer(IK) :: err
10488 end function
10489#endif
10490
10491#if RK1_ENABLED
10492 module function QAGS_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10494 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK41_II_RK1
10495#endif
10496 use pm_kind, only: RKC => RK1
10497 procedure(real(RKC)) :: getFunc
10498 type(ninf_type) , intent(in) :: lb
10499 type(pinf_type) , intent(in) :: ub
10500 real(RKC) , intent(in) :: abstol
10501 real(RKC) , intent(in) :: reltol
10502 type(GK41_type) , intent(in) :: qrule
10503 type(weps_type) , intent(in) :: help
10504 real(RKC) , intent(out) :: integral, abserr
10505 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10506 integer(IK) , intent(out) , contiguous :: sindex(:)
10507 integer(IK) , intent(out) :: neval
10508 integer(IK) , intent(out) :: nint
10509 integer(IK) :: err
10510 end function
10511#endif
10512
10513 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10514
10515 end interface
10516
10517 ! QAGS_GK51
10518
10519 interface getQuadErr
10520
10521 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10522
10523#if RK5_ENABLED
10524 module function QAGS_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10525#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10526 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK5
10527#endif
10528 use pm_kind, only: RKC => RK5
10529 procedure(real(RKC)) :: getFunc
10530 real(RKC) , intent(in) :: lb
10531 real(RKC) , intent(in) :: ub
10532 real(RKC) , intent(in) :: abstol
10533 real(RKC) , intent(in) :: reltol
10534 type(GK51_type) , intent(in) :: qrule
10535 type(weps_type) , intent(in) :: help
10536 real(RKC) , intent(out) :: integral, abserr
10537 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10538 integer(IK) , intent(out) , contiguous :: sindex(:)
10539 integer(IK) , intent(out) :: neval
10540 integer(IK) , intent(out) :: nint
10541 integer(IK) :: err
10542 end function
10543#endif
10544
10545#if RK4_ENABLED
10546 module function QAGS_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10548 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK4
10549#endif
10550 use pm_kind, only: RKC => RK4
10551 procedure(real(RKC)) :: getFunc
10552 real(RKC) , intent(in) :: lb
10553 real(RKC) , intent(in) :: ub
10554 real(RKC) , intent(in) :: abstol
10555 real(RKC) , intent(in) :: reltol
10556 type(GK51_type) , intent(in) :: qrule
10557 type(weps_type) , intent(in) :: help
10558 real(RKC) , intent(out) :: integral, abserr
10559 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10560 integer(IK) , intent(out) , contiguous :: sindex(:)
10561 integer(IK) , intent(out) :: neval
10562 integer(IK) , intent(out) :: nint
10563 integer(IK) :: err
10564 end function
10565#endif
10566
10567#if RK3_ENABLED
10568 module function QAGS_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10569#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10570 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK3
10571#endif
10572 use pm_kind, only: RKC => RK3
10573 procedure(real(RKC)) :: getFunc
10574 real(RKC) , intent(in) :: lb
10575 real(RKC) , intent(in) :: ub
10576 real(RKC) , intent(in) :: abstol
10577 real(RKC) , intent(in) :: reltol
10578 type(GK51_type) , intent(in) :: qrule
10579 type(weps_type) , intent(in) :: help
10580 real(RKC) , intent(out) :: integral, abserr
10581 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10582 integer(IK) , intent(out) , contiguous :: sindex(:)
10583 integer(IK) , intent(out) :: neval
10584 integer(IK) , intent(out) :: nint
10585 integer(IK) :: err
10586 end function
10587#endif
10588
10589#if RK2_ENABLED
10590 module function QAGS_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10591#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10592 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK2
10593#endif
10594 use pm_kind, only: RKC => RK2
10595 procedure(real(RKC)) :: getFunc
10596 real(RKC) , intent(in) :: lb
10597 real(RKC) , intent(in) :: ub
10598 real(RKC) , intent(in) :: abstol
10599 real(RKC) , intent(in) :: reltol
10600 type(GK51_type) , intent(in) :: qrule
10601 type(weps_type) , intent(in) :: help
10602 real(RKC) , intent(out) :: integral, abserr
10603 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10604 integer(IK) , intent(out) , contiguous :: sindex(:)
10605 integer(IK) , intent(out) :: neval
10606 integer(IK) , intent(out) :: nint
10607 integer(IK) :: err
10608 end function
10609#endif
10610
10611#if RK1_ENABLED
10612 module function QAGS_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10614 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FF_RK1
10615#endif
10616 use pm_kind, only: RKC => RK1
10617 procedure(real(RKC)) :: getFunc
10618 real(RKC) , intent(in) :: lb
10619 real(RKC) , intent(in) :: ub
10620 real(RKC) , intent(in) :: abstol
10621 real(RKC) , intent(in) :: reltol
10622 type(GK51_type) , intent(in) :: qrule
10623 type(weps_type) , intent(in) :: help
10624 real(RKC) , intent(out) :: integral, abserr
10625 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10626 integer(IK) , intent(out) , contiguous :: sindex(:)
10627 integer(IK) , intent(out) :: neval
10628 integer(IK) , intent(out) :: nint
10629 integer(IK) :: err
10630 end function
10631#endif
10632
10633 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10634
10635#if RK5_ENABLED
10636 module function QAGS_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10638 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK5
10639#endif
10640 use pm_kind, only: RKC => RK5
10641 procedure(real(RKC)) :: getFunc
10642 real(RKC) , intent(in) :: lb
10643 type(pinf_type) , intent(in) :: ub
10644 real(RKC) , intent(in) :: abstol
10645 real(RKC) , intent(in) :: reltol
10646 type(GK51_type) , intent(in) :: qrule
10647 type(weps_type) , intent(in) :: help
10648 real(RKC) , intent(out) :: integral, abserr
10649 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10650 integer(IK) , intent(out) , contiguous :: sindex(:)
10651 integer(IK) , intent(out) :: neval
10652 integer(IK) , intent(out) :: nint
10653 integer(IK) :: err
10654 end function
10655#endif
10656
10657#if RK4_ENABLED
10658 module function QAGS_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10660 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK4
10661#endif
10662 use pm_kind, only: RKC => RK4
10663 procedure(real(RKC)) :: getFunc
10664 real(RKC) , intent(in) :: lb
10665 type(pinf_type) , intent(in) :: ub
10666 real(RKC) , intent(in) :: abstol
10667 real(RKC) , intent(in) :: reltol
10668 type(GK51_type) , intent(in) :: qrule
10669 type(weps_type) , intent(in) :: help
10670 real(RKC) , intent(out) :: integral, abserr
10671 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10672 integer(IK) , intent(out) , contiguous :: sindex(:)
10673 integer(IK) , intent(out) :: neval
10674 integer(IK) , intent(out) :: nint
10675 integer(IK) :: err
10676 end function
10677#endif
10678
10679#if RK3_ENABLED
10680 module function QAGS_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10682 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK3
10683#endif
10684 use pm_kind, only: RKC => RK3
10685 procedure(real(RKC)) :: getFunc
10686 real(RKC) , intent(in) :: lb
10687 type(pinf_type) , intent(in) :: ub
10688 real(RKC) , intent(in) :: abstol
10689 real(RKC) , intent(in) :: reltol
10690 type(GK51_type) , intent(in) :: qrule
10691 type(weps_type) , intent(in) :: help
10692 real(RKC) , intent(out) :: integral, abserr
10693 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10694 integer(IK) , intent(out) , contiguous :: sindex(:)
10695 integer(IK) , intent(out) :: neval
10696 integer(IK) , intent(out) :: nint
10697 integer(IK) :: err
10698 end function
10699#endif
10700
10701#if RK2_ENABLED
10702 module function QAGS_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10704 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK2
10705#endif
10706 use pm_kind, only: RKC => RK2
10707 procedure(real(RKC)) :: getFunc
10708 real(RKC) , intent(in) :: lb
10709 type(pinf_type) , intent(in) :: ub
10710 real(RKC) , intent(in) :: abstol
10711 real(RKC) , intent(in) :: reltol
10712 type(GK51_type) , intent(in) :: qrule
10713 type(weps_type) , intent(in) :: help
10714 real(RKC) , intent(out) :: integral, abserr
10715 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10716 integer(IK) , intent(out) , contiguous :: sindex(:)
10717 integer(IK) , intent(out) :: neval
10718 integer(IK) , intent(out) :: nint
10719 integer(IK) :: err
10720 end function
10721#endif
10722
10723#if RK1_ENABLED
10724 module function QAGS_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10726 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_FI_RK1
10727#endif
10728 use pm_kind, only: RKC => RK1
10729 procedure(real(RKC)) :: getFunc
10730 real(RKC) , intent(in) :: lb
10731 type(pinf_type) , intent(in) :: ub
10732 real(RKC) , intent(in) :: abstol
10733 real(RKC) , intent(in) :: reltol
10734 type(GK51_type) , intent(in) :: qrule
10735 type(weps_type) , intent(in) :: help
10736 real(RKC) , intent(out) :: integral, abserr
10737 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10738 integer(IK) , intent(out) , contiguous :: sindex(:)
10739 integer(IK) , intent(out) :: neval
10740 integer(IK) , intent(out) :: nint
10741 integer(IK) :: err
10742 end function
10743#endif
10744
10745 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10746
10747#if RK5_ENABLED
10748 module function QAGS_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10750 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK5
10751#endif
10752 use pm_kind, only: RKC => RK5
10753 procedure(real(RKC)) :: getFunc
10754 type(ninf_type) , intent(in) :: lb
10755 real(RKC) , intent(in) :: ub
10756 real(RKC) , intent(in) :: abstol
10757 real(RKC) , intent(in) :: reltol
10758 type(GK51_type) , intent(in) :: qrule
10759 type(weps_type) , intent(in) :: help
10760 real(RKC) , intent(out) :: integral, abserr
10761 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10762 integer(IK) , intent(out) , contiguous :: sindex(:)
10763 integer(IK) , intent(out) :: neval
10764 integer(IK) , intent(out) :: nint
10765 integer(IK) :: err
10766 end function
10767#endif
10768
10769#if RK4_ENABLED
10770 module function QAGS_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10771#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10772 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK4
10773#endif
10774 use pm_kind, only: RKC => RK4
10775 procedure(real(RKC)) :: getFunc
10776 type(ninf_type) , intent(in) :: lb
10777 real(RKC) , intent(in) :: ub
10778 real(RKC) , intent(in) :: abstol
10779 real(RKC) , intent(in) :: reltol
10780 type(GK51_type) , intent(in) :: qrule
10781 type(weps_type) , intent(in) :: help
10782 real(RKC) , intent(out) :: integral, abserr
10783 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10784 integer(IK) , intent(out) , contiguous :: sindex(:)
10785 integer(IK) , intent(out) :: neval
10786 integer(IK) , intent(out) :: nint
10787 integer(IK) :: err
10788 end function
10789#endif
10790
10791#if RK3_ENABLED
10792 module function QAGS_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10793#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10794 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK3
10795#endif
10796 use pm_kind, only: RKC => RK3
10797 procedure(real(RKC)) :: getFunc
10798 type(ninf_type) , intent(in) :: lb
10799 real(RKC) , intent(in) :: ub
10800 real(RKC) , intent(in) :: abstol
10801 real(RKC) , intent(in) :: reltol
10802 type(GK51_type) , intent(in) :: qrule
10803 type(weps_type) , intent(in) :: help
10804 real(RKC) , intent(out) :: integral, abserr
10805 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10806 integer(IK) , intent(out) , contiguous :: sindex(:)
10807 integer(IK) , intent(out) :: neval
10808 integer(IK) , intent(out) :: nint
10809 integer(IK) :: err
10810 end function
10811#endif
10812
10813#if RK2_ENABLED
10814 module function QAGS_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10815#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10816 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK2
10817#endif
10818 use pm_kind, only: RKC => RK2
10819 procedure(real(RKC)) :: getFunc
10820 type(ninf_type) , intent(in) :: lb
10821 real(RKC) , intent(in) :: ub
10822 real(RKC) , intent(in) :: abstol
10823 real(RKC) , intent(in) :: reltol
10824 type(GK51_type) , intent(in) :: qrule
10825 type(weps_type) , intent(in) :: help
10826 real(RKC) , intent(out) :: integral, abserr
10827 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10828 integer(IK) , intent(out) , contiguous :: sindex(:)
10829 integer(IK) , intent(out) :: neval
10830 integer(IK) , intent(out) :: nint
10831 integer(IK) :: err
10832 end function
10833#endif
10834
10835#if RK1_ENABLED
10836 module function QAGS_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10837#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10838 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_IF_RK1
10839#endif
10840 use pm_kind, only: RKC => RK1
10841 procedure(real(RKC)) :: getFunc
10842 type(ninf_type) , intent(in) :: lb
10843 real(RKC) , intent(in) :: ub
10844 real(RKC) , intent(in) :: abstol
10845 real(RKC) , intent(in) :: reltol
10846 type(GK51_type) , intent(in) :: qrule
10847 type(weps_type) , intent(in) :: help
10848 real(RKC) , intent(out) :: integral, abserr
10849 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10850 integer(IK) , intent(out) , contiguous :: sindex(:)
10851 integer(IK) , intent(out) :: neval
10852 integer(IK) , intent(out) :: nint
10853 integer(IK) :: err
10854 end function
10855#endif
10856
10857 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10858
10859#if RK5_ENABLED
10860 module function QAGS_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10862 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK5
10863#endif
10864 use pm_kind, only: RKC => RK5
10865 procedure(real(RKC)) :: getFunc
10866 type(ninf_type) , intent(in) :: lb
10867 type(pinf_type) , intent(in) :: ub
10868 real(RKC) , intent(in) :: abstol
10869 real(RKC) , intent(in) :: reltol
10870 type(GK51_type) , intent(in) :: qrule
10871 type(weps_type) , intent(in) :: help
10872 real(RKC) , intent(out) :: integral, abserr
10873 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10874 integer(IK) , intent(out) , contiguous :: sindex(:)
10875 integer(IK) , intent(out) :: neval
10876 integer(IK) , intent(out) :: nint
10877 integer(IK) :: err
10878 end function
10879#endif
10880
10881#if RK4_ENABLED
10882 module function QAGS_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10884 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK4
10885#endif
10886 use pm_kind, only: RKC => RK4
10887 procedure(real(RKC)) :: getFunc
10888 type(ninf_type) , intent(in) :: lb
10889 type(pinf_type) , intent(in) :: ub
10890 real(RKC) , intent(in) :: abstol
10891 real(RKC) , intent(in) :: reltol
10892 type(GK51_type) , intent(in) :: qrule
10893 type(weps_type) , intent(in) :: help
10894 real(RKC) , intent(out) :: integral, abserr
10895 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10896 integer(IK) , intent(out) , contiguous :: sindex(:)
10897 integer(IK) , intent(out) :: neval
10898 integer(IK) , intent(out) :: nint
10899 integer(IK) :: err
10900 end function
10901#endif
10902
10903#if RK3_ENABLED
10904 module function QAGS_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10906 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK3
10907#endif
10908 use pm_kind, only: RKC => RK3
10909 procedure(real(RKC)) :: getFunc
10910 type(ninf_type) , intent(in) :: lb
10911 type(pinf_type) , intent(in) :: ub
10912 real(RKC) , intent(in) :: abstol
10913 real(RKC) , intent(in) :: reltol
10914 type(GK51_type) , intent(in) :: qrule
10915 type(weps_type) , intent(in) :: help
10916 real(RKC) , intent(out) :: integral, abserr
10917 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10918 integer(IK) , intent(out) , contiguous :: sindex(:)
10919 integer(IK) , intent(out) :: neval
10920 integer(IK) , intent(out) :: nint
10921 integer(IK) :: err
10922 end function
10923#endif
10924
10925#if RK2_ENABLED
10926 module function QAGS_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10927#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10928 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK2
10929#endif
10930 use pm_kind, only: RKC => RK2
10931 procedure(real(RKC)) :: getFunc
10932 type(ninf_type) , intent(in) :: lb
10933 type(pinf_type) , intent(in) :: ub
10934 real(RKC) , intent(in) :: abstol
10935 real(RKC) , intent(in) :: reltol
10936 type(GK51_type) , intent(in) :: qrule
10937 type(weps_type) , intent(in) :: help
10938 real(RKC) , intent(out) :: integral, abserr
10939 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10940 integer(IK) , intent(out) , contiguous :: sindex(:)
10941 integer(IK) , intent(out) :: neval
10942 integer(IK) , intent(out) :: nint
10943 integer(IK) :: err
10944 end function
10945#endif
10946
10947#if RK1_ENABLED
10948 module function QAGS_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10949#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10950 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK51_II_RK1
10951#endif
10952 use pm_kind, only: RKC => RK1
10953 procedure(real(RKC)) :: getFunc
10954 type(ninf_type) , intent(in) :: lb
10955 type(pinf_type) , intent(in) :: ub
10956 real(RKC) , intent(in) :: abstol
10957 real(RKC) , intent(in) :: reltol
10958 type(GK51_type) , intent(in) :: qrule
10959 type(weps_type) , intent(in) :: help
10960 real(RKC) , intent(out) :: integral, abserr
10961 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10962 integer(IK) , intent(out) , contiguous :: sindex(:)
10963 integer(IK) , intent(out) :: neval
10964 integer(IK) , intent(out) :: nint
10965 integer(IK) :: err
10966 end function
10967#endif
10968
10969 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10970
10971 end interface
10972
10973 ! QAGS_GK61
10974
10975 interface getQuadErr
10976
10977 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
10978
10979#if RK5_ENABLED
10980 module function QAGS_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
10981#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
10982 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK5
10983#endif
10984 use pm_kind, only: RKC => RK5
10985 procedure(real(RKC)) :: getFunc
10986 real(RKC) , intent(in) :: lb
10987 real(RKC) , intent(in) :: ub
10988 real(RKC) , intent(in) :: abstol
10989 real(RKC) , intent(in) :: reltol
10990 type(GK61_type) , intent(in) :: qrule
10991 type(weps_type) , intent(in) :: help
10992 real(RKC) , intent(out) :: integral, abserr
10993 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
10994 integer(IK) , intent(out) , contiguous :: sindex(:)
10995 integer(IK) , intent(out) :: neval
10996 integer(IK) , intent(out) :: nint
10997 integer(IK) :: err
10998 end function
10999#endif
11000
11001#if RK4_ENABLED
11002 module function QAGS_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11004 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK4
11005#endif
11006 use pm_kind, only: RKC => RK4
11007 procedure(real(RKC)) :: getFunc
11008 real(RKC) , intent(in) :: lb
11009 real(RKC) , intent(in) :: ub
11010 real(RKC) , intent(in) :: abstol
11011 real(RKC) , intent(in) :: reltol
11012 type(GK61_type) , intent(in) :: qrule
11013 type(weps_type) , intent(in) :: help
11014 real(RKC) , intent(out) :: integral, abserr
11015 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11016 integer(IK) , intent(out) , contiguous :: sindex(:)
11017 integer(IK) , intent(out) :: neval
11018 integer(IK) , intent(out) :: nint
11019 integer(IK) :: err
11020 end function
11021#endif
11022
11023#if RK3_ENABLED
11024 module function QAGS_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11026 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK3
11027#endif
11028 use pm_kind, only: RKC => RK3
11029 procedure(real(RKC)) :: getFunc
11030 real(RKC) , intent(in) :: lb
11031 real(RKC) , intent(in) :: ub
11032 real(RKC) , intent(in) :: abstol
11033 real(RKC) , intent(in) :: reltol
11034 type(GK61_type) , intent(in) :: qrule
11035 type(weps_type) , intent(in) :: help
11036 real(RKC) , intent(out) :: integral, abserr
11037 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11038 integer(IK) , intent(out) , contiguous :: sindex(:)
11039 integer(IK) , intent(out) :: neval
11040 integer(IK) , intent(out) :: nint
11041 integer(IK) :: err
11042 end function
11043#endif
11044
11045#if RK2_ENABLED
11046 module function QAGS_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11048 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK2
11049#endif
11050 use pm_kind, only: RKC => RK2
11051 procedure(real(RKC)) :: getFunc
11052 real(RKC) , intent(in) :: lb
11053 real(RKC) , intent(in) :: ub
11054 real(RKC) , intent(in) :: abstol
11055 real(RKC) , intent(in) :: reltol
11056 type(GK61_type) , intent(in) :: qrule
11057 type(weps_type) , intent(in) :: help
11058 real(RKC) , intent(out) :: integral, abserr
11059 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11060 integer(IK) , intent(out) , contiguous :: sindex(:)
11061 integer(IK) , intent(out) :: neval
11062 integer(IK) , intent(out) :: nint
11063 integer(IK) :: err
11064 end function
11065#endif
11066
11067#if RK1_ENABLED
11068 module function QAGS_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11070 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FF_RK1
11071#endif
11072 use pm_kind, only: RKC => RK1
11073 procedure(real(RKC)) :: getFunc
11074 real(RKC) , intent(in) :: lb
11075 real(RKC) , intent(in) :: ub
11076 real(RKC) , intent(in) :: abstol
11077 real(RKC) , intent(in) :: reltol
11078 type(GK61_type) , intent(in) :: qrule
11079 type(weps_type) , intent(in) :: help
11080 real(RKC) , intent(out) :: integral, abserr
11081 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11082 integer(IK) , intent(out) , contiguous :: sindex(:)
11083 integer(IK) , intent(out) :: neval
11084 integer(IK) , intent(out) :: nint
11085 integer(IK) :: err
11086 end function
11087#endif
11088
11089 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11090
11091#if RK5_ENABLED
11092 module function QAGS_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11093#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11094 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK5
11095#endif
11096 use pm_kind, only: RKC => RK5
11097 procedure(real(RKC)) :: getFunc
11098 real(RKC) , intent(in) :: lb
11099 type(pinf_type) , intent(in) :: ub
11100 real(RKC) , intent(in) :: abstol
11101 real(RKC) , intent(in) :: reltol
11102 type(GK61_type) , intent(in) :: qrule
11103 type(weps_type) , intent(in) :: help
11104 real(RKC) , intent(out) :: integral, abserr
11105 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11106 integer(IK) , intent(out) , contiguous :: sindex(:)
11107 integer(IK) , intent(out) :: neval
11108 integer(IK) , intent(out) :: nint
11109 integer(IK) :: err
11110 end function
11111#endif
11112
11113#if RK4_ENABLED
11114 module function QAGS_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11115#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11116 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK4
11117#endif
11118 use pm_kind, only: RKC => RK4
11119 procedure(real(RKC)) :: getFunc
11120 real(RKC) , intent(in) :: lb
11121 type(pinf_type) , intent(in) :: ub
11122 real(RKC) , intent(in) :: abstol
11123 real(RKC) , intent(in) :: reltol
11124 type(GK61_type) , intent(in) :: qrule
11125 type(weps_type) , intent(in) :: help
11126 real(RKC) , intent(out) :: integral, abserr
11127 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11128 integer(IK) , intent(out) , contiguous :: sindex(:)
11129 integer(IK) , intent(out) :: neval
11130 integer(IK) , intent(out) :: nint
11131 integer(IK) :: err
11132 end function
11133#endif
11134
11135#if RK3_ENABLED
11136 module function QAGS_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11138 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK3
11139#endif
11140 use pm_kind, only: RKC => RK3
11141 procedure(real(RKC)) :: getFunc
11142 real(RKC) , intent(in) :: lb
11143 type(pinf_type) , intent(in) :: ub
11144 real(RKC) , intent(in) :: abstol
11145 real(RKC) , intent(in) :: reltol
11146 type(GK61_type) , intent(in) :: qrule
11147 type(weps_type) , intent(in) :: help
11148 real(RKC) , intent(out) :: integral, abserr
11149 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11150 integer(IK) , intent(out) , contiguous :: sindex(:)
11151 integer(IK) , intent(out) :: neval
11152 integer(IK) , intent(out) :: nint
11153 integer(IK) :: err
11154 end function
11155#endif
11156
11157#if RK2_ENABLED
11158 module function QAGS_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11160 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK2
11161#endif
11162 use pm_kind, only: RKC => RK2
11163 procedure(real(RKC)) :: getFunc
11164 real(RKC) , intent(in) :: lb
11165 type(pinf_type) , intent(in) :: ub
11166 real(RKC) , intent(in) :: abstol
11167 real(RKC) , intent(in) :: reltol
11168 type(GK61_type) , intent(in) :: qrule
11169 type(weps_type) , intent(in) :: help
11170 real(RKC) , intent(out) :: integral, abserr
11171 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11172 integer(IK) , intent(out) , contiguous :: sindex(:)
11173 integer(IK) , intent(out) :: neval
11174 integer(IK) , intent(out) :: nint
11175 integer(IK) :: err
11176 end function
11177#endif
11178
11179#if RK1_ENABLED
11180 module function QAGS_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11181#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11182 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_FI_RK1
11183#endif
11184 use pm_kind, only: RKC => RK1
11185 procedure(real(RKC)) :: getFunc
11186 real(RKC) , intent(in) :: lb
11187 type(pinf_type) , intent(in) :: ub
11188 real(RKC) , intent(in) :: abstol
11189 real(RKC) , intent(in) :: reltol
11190 type(GK61_type) , intent(in) :: qrule
11191 type(weps_type) , intent(in) :: help
11192 real(RKC) , intent(out) :: integral, abserr
11193 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11194 integer(IK) , intent(out) , contiguous :: sindex(:)
11195 integer(IK) , intent(out) :: neval
11196 integer(IK) , intent(out) :: nint
11197 integer(IK) :: err
11198 end function
11199#endif
11200
11201 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11202
11203#if RK5_ENABLED
11204 module function QAGS_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11206 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK5
11207#endif
11208 use pm_kind, only: RKC => RK5
11209 procedure(real(RKC)) :: getFunc
11210 type(ninf_type) , intent(in) :: lb
11211 real(RKC) , intent(in) :: ub
11212 real(RKC) , intent(in) :: abstol
11213 real(RKC) , intent(in) :: reltol
11214 type(GK61_type) , intent(in) :: qrule
11215 type(weps_type) , intent(in) :: help
11216 real(RKC) , intent(out) :: integral, abserr
11217 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11218 integer(IK) , intent(out) , contiguous :: sindex(:)
11219 integer(IK) , intent(out) :: neval
11220 integer(IK) , intent(out) :: nint
11221 integer(IK) :: err
11222 end function
11223#endif
11224
11225#if RK4_ENABLED
11226 module function QAGS_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11228 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK4
11229#endif
11230 use pm_kind, only: RKC => RK4
11231 procedure(real(RKC)) :: getFunc
11232 type(ninf_type) , intent(in) :: lb
11233 real(RKC) , intent(in) :: ub
11234 real(RKC) , intent(in) :: abstol
11235 real(RKC) , intent(in) :: reltol
11236 type(GK61_type) , intent(in) :: qrule
11237 type(weps_type) , intent(in) :: help
11238 real(RKC) , intent(out) :: integral, abserr
11239 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11240 integer(IK) , intent(out) , contiguous :: sindex(:)
11241 integer(IK) , intent(out) :: neval
11242 integer(IK) , intent(out) :: nint
11243 integer(IK) :: err
11244 end function
11245#endif
11246
11247#if RK3_ENABLED
11248 module function QAGS_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11250 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK3
11251#endif
11252 use pm_kind, only: RKC => RK3
11253 procedure(real(RKC)) :: getFunc
11254 type(ninf_type) , intent(in) :: lb
11255 real(RKC) , intent(in) :: ub
11256 real(RKC) , intent(in) :: abstol
11257 real(RKC) , intent(in) :: reltol
11258 type(GK61_type) , intent(in) :: qrule
11259 type(weps_type) , intent(in) :: help
11260 real(RKC) , intent(out) :: integral, abserr
11261 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11262 integer(IK) , intent(out) , contiguous :: sindex(:)
11263 integer(IK) , intent(out) :: neval
11264 integer(IK) , intent(out) :: nint
11265 integer(IK) :: err
11266 end function
11267#endif
11268
11269#if RK2_ENABLED
11270 module function QAGS_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11272 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK2
11273#endif
11274 use pm_kind, only: RKC => RK2
11275 procedure(real(RKC)) :: getFunc
11276 type(ninf_type) , intent(in) :: lb
11277 real(RKC) , intent(in) :: ub
11278 real(RKC) , intent(in) :: abstol
11279 real(RKC) , intent(in) :: reltol
11280 type(GK61_type) , intent(in) :: qrule
11281 type(weps_type) , intent(in) :: help
11282 real(RKC) , intent(out) :: integral, abserr
11283 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11284 integer(IK) , intent(out) , contiguous :: sindex(:)
11285 integer(IK) , intent(out) :: neval
11286 integer(IK) , intent(out) :: nint
11287 integer(IK) :: err
11288 end function
11289#endif
11290
11291#if RK1_ENABLED
11292 module function QAGS_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11293#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11294 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_IF_RK1
11295#endif
11296 use pm_kind, only: RKC => RK1
11297 procedure(real(RKC)) :: getFunc
11298 type(ninf_type) , intent(in) :: lb
11299 real(RKC) , intent(in) :: ub
11300 real(RKC) , intent(in) :: abstol
11301 real(RKC) , intent(in) :: reltol
11302 type(GK61_type) , intent(in) :: qrule
11303 type(weps_type) , intent(in) :: help
11304 real(RKC) , intent(out) :: integral, abserr
11305 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11306 integer(IK) , intent(out) , contiguous :: sindex(:)
11307 integer(IK) , intent(out) :: neval
11308 integer(IK) , intent(out) :: nint
11309 integer(IK) :: err
11310 end function
11311#endif
11312
11313 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11314
11315#if RK5_ENABLED
11316 module function QAGS_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11318 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK5
11319#endif
11320 use pm_kind, only: RKC => RK5
11321 procedure(real(RKC)) :: getFunc
11322 type(ninf_type) , intent(in) :: lb
11323 type(pinf_type) , intent(in) :: ub
11324 real(RKC) , intent(in) :: abstol
11325 real(RKC) , intent(in) :: reltol
11326 type(GK61_type) , intent(in) :: qrule
11327 type(weps_type) , intent(in) :: help
11328 real(RKC) , intent(out) :: integral, abserr
11329 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11330 integer(IK) , intent(out) , contiguous :: sindex(:)
11331 integer(IK) , intent(out) :: neval
11332 integer(IK) , intent(out) :: nint
11333 integer(IK) :: err
11334 end function
11335#endif
11336
11337#if RK4_ENABLED
11338 module function QAGS_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11340 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK4
11341#endif
11342 use pm_kind, only: RKC => RK4
11343 procedure(real(RKC)) :: getFunc
11344 type(ninf_type) , intent(in) :: lb
11345 type(pinf_type) , intent(in) :: ub
11346 real(RKC) , intent(in) :: abstol
11347 real(RKC) , intent(in) :: reltol
11348 type(GK61_type) , intent(in) :: qrule
11349 type(weps_type) , intent(in) :: help
11350 real(RKC) , intent(out) :: integral, abserr
11351 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11352 integer(IK) , intent(out) , contiguous :: sindex(:)
11353 integer(IK) , intent(out) :: neval
11354 integer(IK) , intent(out) :: nint
11355 integer(IK) :: err
11356 end function
11357#endif
11358
11359#if RK3_ENABLED
11360 module function QAGS_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11362 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK3
11363#endif
11364 use pm_kind, only: RKC => RK3
11365 procedure(real(RKC)) :: getFunc
11366 type(ninf_type) , intent(in) :: lb
11367 type(pinf_type) , intent(in) :: ub
11368 real(RKC) , intent(in) :: abstol
11369 real(RKC) , intent(in) :: reltol
11370 type(GK61_type) , intent(in) :: qrule
11371 type(weps_type) , intent(in) :: help
11372 real(RKC) , intent(out) :: integral, abserr
11373 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11374 integer(IK) , intent(out) , contiguous :: sindex(:)
11375 integer(IK) , intent(out) :: neval
11376 integer(IK) , intent(out) :: nint
11377 integer(IK) :: err
11378 end function
11379#endif
11380
11381#if RK2_ENABLED
11382 module function QAGS_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11384 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK2
11385#endif
11386 use pm_kind, only: RKC => RK2
11387 procedure(real(RKC)) :: getFunc
11388 type(ninf_type) , intent(in) :: lb
11389 type(pinf_type) , intent(in) :: ub
11390 real(RKC) , intent(in) :: abstol
11391 real(RKC) , intent(in) :: reltol
11392 type(GK61_type) , intent(in) :: qrule
11393 type(weps_type) , intent(in) :: help
11394 real(RKC) , intent(out) :: integral, abserr
11395 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11396 integer(IK) , intent(out) , contiguous :: sindex(:)
11397 integer(IK) , intent(out) :: neval
11398 integer(IK) , intent(out) :: nint
11399 integer(IK) :: err
11400 end function
11401#endif
11402
11403#if RK1_ENABLED
11404 module function QAGS_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11406 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GK61_II_RK1
11407#endif
11408 use pm_kind, only: RKC => RK1
11409 procedure(real(RKC)) :: getFunc
11410 type(ninf_type) , intent(in) :: lb
11411 type(pinf_type) , intent(in) :: ub
11412 real(RKC) , intent(in) :: abstol
11413 real(RKC) , intent(in) :: reltol
11414 type(GK61_type) , intent(in) :: qrule
11415 type(weps_type) , intent(in) :: help
11416 real(RKC) , intent(out) :: integral, abserr
11417 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11418 integer(IK) , intent(out) , contiguous :: sindex(:)
11419 integer(IK) , intent(out) :: neval
11420 integer(IK) , intent(out) :: nint
11421 integer(IK) :: err
11422 end function
11423#endif
11424
11425 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11426
11427 end interface
11428
11429 ! QAGS_GKXX
11430
11431 interface getQuadErr
11432
11433 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11434
11435#if RK5_ENABLED
11436 module function QAGS_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11438 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK5
11439#endif
11440 use pm_kind, only: RKC => RK5
11441 procedure(real(RKC)) :: getFunc
11442 real(RKC) , intent(in) :: lb
11443 real(RKC) , intent(in) :: ub
11444 real(RKC) , intent(in) :: abstol
11445 real(RKC) , intent(in) :: reltol
11446 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11447 type(weps_type) , intent(in) :: help
11448 real(RKC) , intent(out) :: integral, abserr
11449 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11450 integer(IK) , intent(out) , contiguous :: sindex(:)
11451 integer(IK) , intent(out) :: neval
11452 integer(IK) , intent(out) :: nint
11453 integer(IK) :: err
11454 end function
11455#endif
11456
11457#if RK4_ENABLED
11458 module function QAGS_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11459#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11460 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK4
11461#endif
11462 use pm_kind, only: RKC => RK4
11463 procedure(real(RKC)) :: getFunc
11464 real(RKC) , intent(in) :: lb
11465 real(RKC) , intent(in) :: ub
11466 real(RKC) , intent(in) :: abstol
11467 real(RKC) , intent(in) :: reltol
11468 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11469 type(weps_type) , intent(in) :: help
11470 real(RKC) , intent(out) :: integral, abserr
11471 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11472 integer(IK) , intent(out) , contiguous :: sindex(:)
11473 integer(IK) , intent(out) :: neval
11474 integer(IK) , intent(out) :: nint
11475 integer(IK) :: err
11476 end function
11477#endif
11478
11479#if RK3_ENABLED
11480 module function QAGS_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11481#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11482 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK3
11483#endif
11484 use pm_kind, only: RKC => RK3
11485 procedure(real(RKC)) :: getFunc
11486 real(RKC) , intent(in) :: lb
11487 real(RKC) , intent(in) :: ub
11488 real(RKC) , intent(in) :: abstol
11489 real(RKC) , intent(in) :: reltol
11490 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11491 type(weps_type) , intent(in) :: help
11492 real(RKC) , intent(out) :: integral, abserr
11493 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11494 integer(IK) , intent(out) , contiguous :: sindex(:)
11495 integer(IK) , intent(out) :: neval
11496 integer(IK) , intent(out) :: nint
11497 integer(IK) :: err
11498 end function
11499#endif
11500
11501#if RK2_ENABLED
11502 module function QAGS_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11504 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK2
11505#endif
11506 use pm_kind, only: RKC => RK2
11507 procedure(real(RKC)) :: getFunc
11508 real(RKC) , intent(in) :: lb
11509 real(RKC) , intent(in) :: ub
11510 real(RKC) , intent(in) :: abstol
11511 real(RKC) , intent(in) :: reltol
11512 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11513 type(weps_type) , intent(in) :: help
11514 real(RKC) , intent(out) :: integral, abserr
11515 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11516 integer(IK) , intent(out) , contiguous :: sindex(:)
11517 integer(IK) , intent(out) :: neval
11518 integer(IK) , intent(out) :: nint
11519 integer(IK) :: err
11520 end function
11521#endif
11522
11523#if RK1_ENABLED
11524 module function QAGS_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11525#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11526 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FF_RK1
11527#endif
11528 use pm_kind, only: RKC => RK1
11529 procedure(real(RKC)) :: getFunc
11530 real(RKC) , intent(in) :: lb
11531 real(RKC) , intent(in) :: ub
11532 real(RKC) , intent(in) :: abstol
11533 real(RKC) , intent(in) :: reltol
11534 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11535 type(weps_type) , intent(in) :: help
11536 real(RKC) , intent(out) :: integral, abserr
11537 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11538 integer(IK) , intent(out) , contiguous :: sindex(:)
11539 integer(IK) , intent(out) :: neval
11540 integer(IK) , intent(out) :: nint
11541 integer(IK) :: err
11542 end function
11543#endif
11544
11545 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11546
11547#if RK5_ENABLED
11548 module function QAGS_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11550 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK5
11551#endif
11552 use pm_kind, only: RKC => RK5
11553 procedure(real(RKC)) :: getFunc
11554 real(RKC) , intent(in) :: lb
11555 type(pinf_type) , intent(in) :: ub
11556 real(RKC) , intent(in) :: abstol
11557 real(RKC) , intent(in) :: reltol
11558 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11559 type(weps_type) , intent(in) :: help
11560 real(RKC) , intent(out) :: integral, abserr
11561 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11562 integer(IK) , intent(out) , contiguous :: sindex(:)
11563 integer(IK) , intent(out) :: neval
11564 integer(IK) , intent(out) :: nint
11565 integer(IK) :: err
11566 end function
11567#endif
11568
11569#if RK4_ENABLED
11570 module function QAGS_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11572 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK4
11573#endif
11574 use pm_kind, only: RKC => RK4
11575 procedure(real(RKC)) :: getFunc
11576 real(RKC) , intent(in) :: lb
11577 type(pinf_type) , intent(in) :: ub
11578 real(RKC) , intent(in) :: abstol
11579 real(RKC) , intent(in) :: reltol
11580 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11581 type(weps_type) , intent(in) :: help
11582 real(RKC) , intent(out) :: integral, abserr
11583 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11584 integer(IK) , intent(out) , contiguous :: sindex(:)
11585 integer(IK) , intent(out) :: neval
11586 integer(IK) , intent(out) :: nint
11587 integer(IK) :: err
11588 end function
11589#endif
11590
11591#if RK3_ENABLED
11592 module function QAGS_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11594 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK3
11595#endif
11596 use pm_kind, only: RKC => RK3
11597 procedure(real(RKC)) :: getFunc
11598 real(RKC) , intent(in) :: lb
11599 type(pinf_type) , intent(in) :: ub
11600 real(RKC) , intent(in) :: abstol
11601 real(RKC) , intent(in) :: reltol
11602 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11603 type(weps_type) , intent(in) :: help
11604 real(RKC) , intent(out) :: integral, abserr
11605 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11606 integer(IK) , intent(out) , contiguous :: sindex(:)
11607 integer(IK) , intent(out) :: neval
11608 integer(IK) , intent(out) :: nint
11609 integer(IK) :: err
11610 end function
11611#endif
11612
11613#if RK2_ENABLED
11614 module function QAGS_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11616 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK2
11617#endif
11618 use pm_kind, only: RKC => RK2
11619 procedure(real(RKC)) :: getFunc
11620 real(RKC) , intent(in) :: lb
11621 type(pinf_type) , intent(in) :: ub
11622 real(RKC) , intent(in) :: abstol
11623 real(RKC) , intent(in) :: reltol
11624 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11625 type(weps_type) , intent(in) :: help
11626 real(RKC) , intent(out) :: integral, abserr
11627 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11628 integer(IK) , intent(out) , contiguous :: sindex(:)
11629 integer(IK) , intent(out) :: neval
11630 integer(IK) , intent(out) :: nint
11631 integer(IK) :: err
11632 end function
11633#endif
11634
11635#if RK1_ENABLED
11636 module function QAGS_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11638 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_FI_RK1
11639#endif
11640 use pm_kind, only: RKC => RK1
11641 procedure(real(RKC)) :: getFunc
11642 real(RKC) , intent(in) :: lb
11643 type(pinf_type) , intent(in) :: ub
11644 real(RKC) , intent(in) :: abstol
11645 real(RKC) , intent(in) :: reltol
11646 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11647 type(weps_type) , intent(in) :: help
11648 real(RKC) , intent(out) :: integral, abserr
11649 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11650 integer(IK) , intent(out) , contiguous :: sindex(:)
11651 integer(IK) , intent(out) :: neval
11652 integer(IK) , intent(out) :: nint
11653 integer(IK) :: err
11654 end function
11655#endif
11656
11657 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11658
11659#if RK5_ENABLED
11660 module function QAGS_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11661#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11662 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK5
11663#endif
11664 use pm_kind, only: RKC => RK5
11665 procedure(real(RKC)) :: getFunc
11666 type(ninf_type) , intent(in) :: lb
11667 real(RKC) , intent(in) :: ub
11668 real(RKC) , intent(in) :: abstol
11669 real(RKC) , intent(in) :: reltol
11670 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11671 type(weps_type) , intent(in) :: help
11672 real(RKC) , intent(out) :: integral, abserr
11673 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11674 integer(IK) , intent(out) , contiguous :: sindex(:)
11675 integer(IK) , intent(out) :: neval
11676 integer(IK) , intent(out) :: nint
11677 integer(IK) :: err
11678 end function
11679#endif
11680
11681#if RK4_ENABLED
11682 module function QAGS_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11683#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11684 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK4
11685#endif
11686 use pm_kind, only: RKC => RK4
11687 procedure(real(RKC)) :: getFunc
11688 type(ninf_type) , intent(in) :: lb
11689 real(RKC) , intent(in) :: ub
11690 real(RKC) , intent(in) :: abstol
11691 real(RKC) , intent(in) :: reltol
11692 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11693 type(weps_type) , intent(in) :: help
11694 real(RKC) , intent(out) :: integral, abserr
11695 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11696 integer(IK) , intent(out) , contiguous :: sindex(:)
11697 integer(IK) , intent(out) :: neval
11698 integer(IK) , intent(out) :: nint
11699 integer(IK) :: err
11700 end function
11701#endif
11702
11703#if RK3_ENABLED
11704 module function QAGS_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11706 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK3
11707#endif
11708 use pm_kind, only: RKC => RK3
11709 procedure(real(RKC)) :: getFunc
11710 type(ninf_type) , intent(in) :: lb
11711 real(RKC) , intent(in) :: ub
11712 real(RKC) , intent(in) :: abstol
11713 real(RKC) , intent(in) :: reltol
11714 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11715 type(weps_type) , intent(in) :: help
11716 real(RKC) , intent(out) :: integral, abserr
11717 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11718 integer(IK) , intent(out) , contiguous :: sindex(:)
11719 integer(IK) , intent(out) :: neval
11720 integer(IK) , intent(out) :: nint
11721 integer(IK) :: err
11722 end function
11723#endif
11724
11725#if RK2_ENABLED
11726 module function QAGS_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11727#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11728 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK2
11729#endif
11730 use pm_kind, only: RKC => RK2
11731 procedure(real(RKC)) :: getFunc
11732 type(ninf_type) , intent(in) :: lb
11733 real(RKC) , intent(in) :: ub
11734 real(RKC) , intent(in) :: abstol
11735 real(RKC) , intent(in) :: reltol
11736 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11737 type(weps_type) , intent(in) :: help
11738 real(RKC) , intent(out) :: integral, abserr
11739 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11740 integer(IK) , intent(out) , contiguous :: sindex(:)
11741 integer(IK) , intent(out) :: neval
11742 integer(IK) , intent(out) :: nint
11743 integer(IK) :: err
11744 end function
11745#endif
11746
11747#if RK1_ENABLED
11748 module function QAGS_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11749#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11750 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_IF_RK1
11751#endif
11752 use pm_kind, only: RKC => RK1
11753 procedure(real(RKC)) :: getFunc
11754 type(ninf_type) , intent(in) :: lb
11755 real(RKC) , intent(in) :: ub
11756 real(RKC) , intent(in) :: abstol
11757 real(RKC) , intent(in) :: reltol
11758 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11759 type(weps_type) , intent(in) :: help
11760 real(RKC) , intent(out) :: integral, abserr
11761 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11762 integer(IK) , intent(out) , contiguous :: sindex(:)
11763 integer(IK) , intent(out) :: neval
11764 integer(IK) , intent(out) :: nint
11765 integer(IK) :: err
11766 end function
11767#endif
11768
11769 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11770
11771#if RK5_ENABLED
11772 module function QAGS_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11774 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK5
11775#endif
11776 use pm_kind, only: RKC => RK5
11777 procedure(real(RKC)) :: getFunc
11778 type(ninf_type) , intent(in) :: lb
11779 type(pinf_type) , intent(in) :: ub
11780 real(RKC) , intent(in) :: abstol
11781 real(RKC) , intent(in) :: reltol
11782 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11783 type(weps_type) , intent(in) :: help
11784 real(RKC) , intent(out) :: integral, abserr
11785 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11786 integer(IK) , intent(out) , contiguous :: sindex(:)
11787 integer(IK) , intent(out) :: neval
11788 integer(IK) , intent(out) :: nint
11789 integer(IK) :: err
11790 end function
11791#endif
11792
11793#if RK4_ENABLED
11794 module function QAGS_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11795#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11796 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK4
11797#endif
11798 use pm_kind, only: RKC => RK4
11799 procedure(real(RKC)) :: getFunc
11800 type(ninf_type) , intent(in) :: lb
11801 type(pinf_type) , intent(in) :: ub
11802 real(RKC) , intent(in) :: abstol
11803 real(RKC) , intent(in) :: reltol
11804 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11805 type(weps_type) , intent(in) :: help
11806 real(RKC) , intent(out) :: integral, abserr
11807 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11808 integer(IK) , intent(out) , contiguous :: sindex(:)
11809 integer(IK) , intent(out) :: neval
11810 integer(IK) , intent(out) :: nint
11811 integer(IK) :: err
11812 end function
11813#endif
11814
11815#if RK3_ENABLED
11816 module function QAGS_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11818 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK3
11819#endif
11820 use pm_kind, only: RKC => RK3
11821 procedure(real(RKC)) :: getFunc
11822 type(ninf_type) , intent(in) :: lb
11823 type(pinf_type) , intent(in) :: ub
11824 real(RKC) , intent(in) :: abstol
11825 real(RKC) , intent(in) :: reltol
11826 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11827 type(weps_type) , intent(in) :: help
11828 real(RKC) , intent(out) :: integral, abserr
11829 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11830 integer(IK) , intent(out) , contiguous :: sindex(:)
11831 integer(IK) , intent(out) :: neval
11832 integer(IK) , intent(out) :: nint
11833 integer(IK) :: err
11834 end function
11835#endif
11836
11837#if RK2_ENABLED
11838 module function QAGS_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11840 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK2
11841#endif
11842 use pm_kind, only: RKC => RK2
11843 procedure(real(RKC)) :: getFunc
11844 type(ninf_type) , intent(in) :: lb
11845 type(pinf_type) , intent(in) :: ub
11846 real(RKC) , intent(in) :: abstol
11847 real(RKC) , intent(in) :: reltol
11848 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11849 type(weps_type) , intent(in) :: help
11850 real(RKC) , intent(out) :: integral, abserr
11851 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11852 integer(IK) , intent(out) , contiguous :: sindex(:)
11853 integer(IK) , intent(out) :: neval
11854 integer(IK) , intent(out) :: nint
11855 integer(IK) :: err
11856 end function
11857#endif
11858
11859#if RK1_ENABLED
11860 module function QAGS_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11862 !DEC$ ATTRIBUTES DLLEXPORT :: QAGS_GKXX_II_RK1
11863#endif
11864 use pm_kind, only: RKC => RK1
11865 procedure(real(RKC)) :: getFunc
11866 type(ninf_type) , intent(in) :: lb
11867 type(pinf_type) , intent(in) :: ub
11868 real(RKC) , intent(in) :: abstol
11869 real(RKC) , intent(in) :: reltol
11870 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
11871 type(weps_type) , intent(in) :: help
11872 real(RKC) , intent(out) :: integral, abserr
11873 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11874 integer(IK) , intent(out) , contiguous :: sindex(:)
11875 integer(IK) , intent(out) :: neval
11876 integer(IK) , intent(out) :: nint
11877 integer(IK) :: err
11878 end function
11879#endif
11880
11881 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11882
11883 end interface
11884
11885!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11886
11887 ! QAGP_GK15
11888
11889 interface getQuadErr
11890
11891 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11892
11893#if RK5_ENABLED
11894 module function QAGP_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11896 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK5
11897#endif
11898 use pm_kind, only: RKC => RK5
11899 procedure(real(RKC)) :: getFunc
11900 real(RKC) , intent(in) :: lb
11901 real(RKC) , intent(in) :: ub
11902 real(RKC) , intent(in) :: abstol
11903 real(RKC) , intent(in) :: reltol
11904 type(GK15_type) , intent(in) :: qrule
11905 real(RKC) , intent(in) , contiguous :: help(:)
11906 real(RKC) , intent(out) :: integral, abserr
11907 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11908 integer(IK) , intent(out) , contiguous :: sindex(:)
11909 integer(IK) , intent(out) :: neval
11910 integer(IK) , intent(out) :: nint
11911 integer(IK) :: err
11912 end function
11913#endif
11914
11915#if RK4_ENABLED
11916 module function QAGP_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11918 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK4
11919#endif
11920 use pm_kind, only: RKC => RK4
11921 procedure(real(RKC)) :: getFunc
11922 real(RKC) , intent(in) :: lb
11923 real(RKC) , intent(in) :: ub
11924 real(RKC) , intent(in) :: abstol
11925 real(RKC) , intent(in) :: reltol
11926 type(GK15_type) , intent(in) :: qrule
11927 real(RKC) , intent(in) , contiguous :: help(:)
11928 real(RKC) , intent(out) :: integral, abserr
11929 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11930 integer(IK) , intent(out) , contiguous :: sindex(:)
11931 integer(IK) , intent(out) :: neval
11932 integer(IK) , intent(out) :: nint
11933 integer(IK) :: err
11934 end function
11935#endif
11936
11937#if RK3_ENABLED
11938 module function QAGP_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11939#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11940 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK3
11941#endif
11942 use pm_kind, only: RKC => RK3
11943 procedure(real(RKC)) :: getFunc
11944 real(RKC) , intent(in) :: lb
11945 real(RKC) , intent(in) :: ub
11946 real(RKC) , intent(in) :: abstol
11947 real(RKC) , intent(in) :: reltol
11948 type(GK15_type) , intent(in) :: qrule
11949 real(RKC) , intent(in) , contiguous :: help(:)
11950 real(RKC) , intent(out) :: integral, abserr
11951 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11952 integer(IK) , intent(out) , contiguous :: sindex(:)
11953 integer(IK) , intent(out) :: neval
11954 integer(IK) , intent(out) :: nint
11955 integer(IK) :: err
11956 end function
11957#endif
11958
11959#if RK2_ENABLED
11960 module function QAGP_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11962 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK2
11963#endif
11964 use pm_kind, only: RKC => RK2
11965 procedure(real(RKC)) :: getFunc
11966 real(RKC) , intent(in) :: lb
11967 real(RKC) , intent(in) :: ub
11968 real(RKC) , intent(in) :: abstol
11969 real(RKC) , intent(in) :: reltol
11970 type(GK15_type) , intent(in) :: qrule
11971 real(RKC) , intent(in) , contiguous :: help(:)
11972 real(RKC) , intent(out) :: integral, abserr
11973 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11974 integer(IK) , intent(out) , contiguous :: sindex(:)
11975 integer(IK) , intent(out) :: neval
11976 integer(IK) , intent(out) :: nint
11977 integer(IK) :: err
11978 end function
11979#endif
11980
11981#if RK1_ENABLED
11982 module function QAGP_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
11983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
11984 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FF_RK1
11985#endif
11986 use pm_kind, only: RKC => RK1
11987 procedure(real(RKC)) :: getFunc
11988 real(RKC) , intent(in) :: lb
11989 real(RKC) , intent(in) :: ub
11990 real(RKC) , intent(in) :: abstol
11991 real(RKC) , intent(in) :: reltol
11992 type(GK15_type) , intent(in) :: qrule
11993 real(RKC) , intent(in) , contiguous :: help(:)
11994 real(RKC) , intent(out) :: integral, abserr
11995 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
11996 integer(IK) , intent(out) , contiguous :: sindex(:)
11997 integer(IK) , intent(out) :: neval
11998 integer(IK) , intent(out) :: nint
11999 integer(IK) :: err
12000 end function
12001#endif
12002
12003 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12004
12005#if RK5_ENABLED
12006 module function QAGP_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12008 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK5
12009#endif
12010 use pm_kind, only: RKC => RK5
12011 procedure(real(RKC)) :: getFunc
12012 real(RKC) , intent(in) :: lb
12013 type(pinf_type) , intent(in) :: ub
12014 real(RKC) , intent(in) :: abstol
12015 real(RKC) , intent(in) :: reltol
12016 type(GK15_type) , intent(in) :: qrule
12017 real(RKC) , intent(in) , contiguous :: help(:)
12018 real(RKC) , intent(out) :: integral, abserr
12019 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12020 integer(IK) , intent(out) , contiguous :: sindex(:)
12021 integer(IK) , intent(out) :: neval
12022 integer(IK) , intent(out) :: nint
12023 integer(IK) :: err
12024 end function
12025#endif
12026
12027#if RK4_ENABLED
12028 module function QAGP_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12030 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK4
12031#endif
12032 use pm_kind, only: RKC => RK4
12033 procedure(real(RKC)) :: getFunc
12034 real(RKC) , intent(in) :: lb
12035 type(pinf_type) , intent(in) :: ub
12036 real(RKC) , intent(in) :: abstol
12037 real(RKC) , intent(in) :: reltol
12038 type(GK15_type) , intent(in) :: qrule
12039 real(RKC) , intent(in) , contiguous :: help(:)
12040 real(RKC) , intent(out) :: integral, abserr
12041 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12042 integer(IK) , intent(out) , contiguous :: sindex(:)
12043 integer(IK) , intent(out) :: neval
12044 integer(IK) , intent(out) :: nint
12045 integer(IK) :: err
12046 end function
12047#endif
12048
12049#if RK3_ENABLED
12050 module function QAGP_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12051#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12052 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK3
12053#endif
12054 use pm_kind, only: RKC => RK3
12055 procedure(real(RKC)) :: getFunc
12056 real(RKC) , intent(in) :: lb
12057 type(pinf_type) , intent(in) :: ub
12058 real(RKC) , intent(in) :: abstol
12059 real(RKC) , intent(in) :: reltol
12060 type(GK15_type) , intent(in) :: qrule
12061 real(RKC) , intent(in) , contiguous :: help(:)
12062 real(RKC) , intent(out) :: integral, abserr
12063 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12064 integer(IK) , intent(out) , contiguous :: sindex(:)
12065 integer(IK) , intent(out) :: neval
12066 integer(IK) , intent(out) :: nint
12067 integer(IK) :: err
12068 end function
12069#endif
12070
12071#if RK2_ENABLED
12072 module function QAGP_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12073#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12074 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK2
12075#endif
12076 use pm_kind, only: RKC => RK2
12077 procedure(real(RKC)) :: getFunc
12078 real(RKC) , intent(in) :: lb
12079 type(pinf_type) , intent(in) :: ub
12080 real(RKC) , intent(in) :: abstol
12081 real(RKC) , intent(in) :: reltol
12082 type(GK15_type) , intent(in) :: qrule
12083 real(RKC) , intent(in) , contiguous :: help(:)
12084 real(RKC) , intent(out) :: integral, abserr
12085 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12086 integer(IK) , intent(out) , contiguous :: sindex(:)
12087 integer(IK) , intent(out) :: neval
12088 integer(IK) , intent(out) :: nint
12089 integer(IK) :: err
12090 end function
12091#endif
12092
12093#if RK1_ENABLED
12094 module function QAGP_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12095#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12096 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_FI_RK1
12097#endif
12098 use pm_kind, only: RKC => RK1
12099 procedure(real(RKC)) :: getFunc
12100 real(RKC) , intent(in) :: lb
12101 type(pinf_type) , intent(in) :: ub
12102 real(RKC) , intent(in) :: abstol
12103 real(RKC) , intent(in) :: reltol
12104 type(GK15_type) , intent(in) :: qrule
12105 real(RKC) , intent(in) , contiguous :: help(:)
12106 real(RKC) , intent(out) :: integral, abserr
12107 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12108 integer(IK) , intent(out) , contiguous :: sindex(:)
12109 integer(IK) , intent(out) :: neval
12110 integer(IK) , intent(out) :: nint
12111 integer(IK) :: err
12112 end function
12113#endif
12114
12115 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12116
12117#if RK5_ENABLED
12118 module function QAGP_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12120 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK5
12121#endif
12122 use pm_kind, only: RKC => RK5
12123 procedure(real(RKC)) :: getFunc
12124 type(ninf_type) , intent(in) :: lb
12125 real(RKC) , intent(in) :: ub
12126 real(RKC) , intent(in) :: abstol
12127 real(RKC) , intent(in) :: reltol
12128 type(GK15_type) , intent(in) :: qrule
12129 real(RKC) , intent(in) , contiguous :: help(:)
12130 real(RKC) , intent(out) :: integral, abserr
12131 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12132 integer(IK) , intent(out) , contiguous :: sindex(:)
12133 integer(IK) , intent(out) :: neval
12134 integer(IK) , intent(out) :: nint
12135 integer(IK) :: err
12136 end function
12137#endif
12138
12139#if RK4_ENABLED
12140 module function QAGP_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12142 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK4
12143#endif
12144 use pm_kind, only: RKC => RK4
12145 procedure(real(RKC)) :: getFunc
12146 type(ninf_type) , intent(in) :: lb
12147 real(RKC) , intent(in) :: ub
12148 real(RKC) , intent(in) :: abstol
12149 real(RKC) , intent(in) :: reltol
12150 type(GK15_type) , intent(in) :: qrule
12151 real(RKC) , intent(in) , contiguous :: help(:)
12152 real(RKC) , intent(out) :: integral, abserr
12153 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12154 integer(IK) , intent(out) , contiguous :: sindex(:)
12155 integer(IK) , intent(out) :: neval
12156 integer(IK) , intent(out) :: nint
12157 integer(IK) :: err
12158 end function
12159#endif
12160
12161#if RK3_ENABLED
12162 module function QAGP_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12164 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK3
12165#endif
12166 use pm_kind, only: RKC => RK3
12167 procedure(real(RKC)) :: getFunc
12168 type(ninf_type) , intent(in) :: lb
12169 real(RKC) , intent(in) :: ub
12170 real(RKC) , intent(in) :: abstol
12171 real(RKC) , intent(in) :: reltol
12172 type(GK15_type) , intent(in) :: qrule
12173 real(RKC) , intent(in) , contiguous :: help(:)
12174 real(RKC) , intent(out) :: integral, abserr
12175 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12176 integer(IK) , intent(out) , contiguous :: sindex(:)
12177 integer(IK) , intent(out) :: neval
12178 integer(IK) , intent(out) :: nint
12179 integer(IK) :: err
12180 end function
12181#endif
12182
12183#if RK2_ENABLED
12184 module function QAGP_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12185#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12186 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK2
12187#endif
12188 use pm_kind, only: RKC => RK2
12189 procedure(real(RKC)) :: getFunc
12190 type(ninf_type) , intent(in) :: lb
12191 real(RKC) , intent(in) :: ub
12192 real(RKC) , intent(in) :: abstol
12193 real(RKC) , intent(in) :: reltol
12194 type(GK15_type) , intent(in) :: qrule
12195 real(RKC) , intent(in) , contiguous :: help(:)
12196 real(RKC) , intent(out) :: integral, abserr
12197 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12198 integer(IK) , intent(out) , contiguous :: sindex(:)
12199 integer(IK) , intent(out) :: neval
12200 integer(IK) , intent(out) :: nint
12201 integer(IK) :: err
12202 end function
12203#endif
12204
12205#if RK1_ENABLED
12206 module function QAGP_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12207#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12208 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_IF_RK1
12209#endif
12210 use pm_kind, only: RKC => RK1
12211 procedure(real(RKC)) :: getFunc
12212 type(ninf_type) , intent(in) :: lb
12213 real(RKC) , intent(in) :: ub
12214 real(RKC) , intent(in) :: abstol
12215 real(RKC) , intent(in) :: reltol
12216 type(GK15_type) , intent(in) :: qrule
12217 real(RKC) , intent(in) , contiguous :: help(:)
12218 real(RKC) , intent(out) :: integral, abserr
12219 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12220 integer(IK) , intent(out) , contiguous :: sindex(:)
12221 integer(IK) , intent(out) :: neval
12222 integer(IK) , intent(out) :: nint
12223 integer(IK) :: err
12224 end function
12225#endif
12226
12227 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12228
12229#if RK5_ENABLED
12230 module function QAGP_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12232 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK5
12233#endif
12234 use pm_kind, only: RKC => RK5
12235 procedure(real(RKC)) :: getFunc
12236 type(ninf_type) , intent(in) :: lb
12237 type(pinf_type) , intent(in) :: ub
12238 real(RKC) , intent(in) :: abstol
12239 real(RKC) , intent(in) :: reltol
12240 type(GK15_type) , intent(in) :: qrule
12241 real(RKC) , intent(in) , contiguous :: help(:)
12242 real(RKC) , intent(out) :: integral, abserr
12243 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12244 integer(IK) , intent(out) , contiguous :: sindex(:)
12245 integer(IK) , intent(out) :: neval
12246 integer(IK) , intent(out) :: nint
12247 integer(IK) :: err
12248 end function
12249#endif
12250
12251#if RK4_ENABLED
12252 module function QAGP_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12253#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12254 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK4
12255#endif
12256 use pm_kind, only: RKC => RK4
12257 procedure(real(RKC)) :: getFunc
12258 type(ninf_type) , intent(in) :: lb
12259 type(pinf_type) , intent(in) :: ub
12260 real(RKC) , intent(in) :: abstol
12261 real(RKC) , intent(in) :: reltol
12262 type(GK15_type) , intent(in) :: qrule
12263 real(RKC) , intent(in) , contiguous :: help(:)
12264 real(RKC) , intent(out) :: integral, abserr
12265 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12266 integer(IK) , intent(out) , contiguous :: sindex(:)
12267 integer(IK) , intent(out) :: neval
12268 integer(IK) , intent(out) :: nint
12269 integer(IK) :: err
12270 end function
12271#endif
12272
12273#if RK3_ENABLED
12274 module function QAGP_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12275#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12276 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK3
12277#endif
12278 use pm_kind, only: RKC => RK3
12279 procedure(real(RKC)) :: getFunc
12280 type(ninf_type) , intent(in) :: lb
12281 type(pinf_type) , intent(in) :: ub
12282 real(RKC) , intent(in) :: abstol
12283 real(RKC) , intent(in) :: reltol
12284 type(GK15_type) , intent(in) :: qrule
12285 real(RKC) , intent(in) , contiguous :: help(:)
12286 real(RKC) , intent(out) :: integral, abserr
12287 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12288 integer(IK) , intent(out) , contiguous :: sindex(:)
12289 integer(IK) , intent(out) :: neval
12290 integer(IK) , intent(out) :: nint
12291 integer(IK) :: err
12292 end function
12293#endif
12294
12295#if RK2_ENABLED
12296 module function QAGP_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12298 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK2
12299#endif
12300 use pm_kind, only: RKC => RK2
12301 procedure(real(RKC)) :: getFunc
12302 type(ninf_type) , intent(in) :: lb
12303 type(pinf_type) , intent(in) :: ub
12304 real(RKC) , intent(in) :: abstol
12305 real(RKC) , intent(in) :: reltol
12306 type(GK15_type) , intent(in) :: qrule
12307 real(RKC) , intent(in) , contiguous :: help(:)
12308 real(RKC) , intent(out) :: integral, abserr
12309 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12310 integer(IK) , intent(out) , contiguous :: sindex(:)
12311 integer(IK) , intent(out) :: neval
12312 integer(IK) , intent(out) :: nint
12313 integer(IK) :: err
12314 end function
12315#endif
12316
12317#if RK1_ENABLED
12318 module function QAGP_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12319#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12320 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK15_II_RK1
12321#endif
12322 use pm_kind, only: RKC => RK1
12323 procedure(real(RKC)) :: getFunc
12324 type(ninf_type) , intent(in) :: lb
12325 type(pinf_type) , intent(in) :: ub
12326 real(RKC) , intent(in) :: abstol
12327 real(RKC) , intent(in) :: reltol
12328 type(GK15_type) , intent(in) :: qrule
12329 real(RKC) , intent(in) , contiguous :: help(:)
12330 real(RKC) , intent(out) :: integral, abserr
12331 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12332 integer(IK) , intent(out) , contiguous :: sindex(:)
12333 integer(IK) , intent(out) :: neval
12334 integer(IK) , intent(out) :: nint
12335 integer(IK) :: err
12336 end function
12337#endif
12338
12339 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12340
12341 end interface
12342
12343 ! QAGP_GK21
12344
12345 interface getQuadErr
12346
12347 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12348
12349#if RK5_ENABLED
12350 module function QAGP_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12352 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK5
12353#endif
12354 use pm_kind, only: RKC => RK5
12355 procedure(real(RKC)) :: getFunc
12356 real(RKC) , intent(in) :: lb
12357 real(RKC) , intent(in) :: ub
12358 real(RKC) , intent(in) :: abstol
12359 real(RKC) , intent(in) :: reltol
12360 type(GK21_type) , intent(in) :: qrule
12361 real(RKC) , intent(in) , contiguous :: help(:)
12362 real(RKC) , intent(out) :: integral, abserr
12363 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12364 integer(IK) , intent(out) , contiguous :: sindex(:)
12365 integer(IK) , intent(out) :: neval
12366 integer(IK) , intent(out) :: nint
12367 integer(IK) :: err
12368 end function
12369#endif
12370
12371#if RK4_ENABLED
12372 module function QAGP_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12374 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK4
12375#endif
12376 use pm_kind, only: RKC => RK4
12377 procedure(real(RKC)) :: getFunc
12378 real(RKC) , intent(in) :: lb
12379 real(RKC) , intent(in) :: ub
12380 real(RKC) , intent(in) :: abstol
12381 real(RKC) , intent(in) :: reltol
12382 type(GK21_type) , intent(in) :: qrule
12383 real(RKC) , intent(in) , contiguous :: help(:)
12384 real(RKC) , intent(out) :: integral, abserr
12385 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12386 integer(IK) , intent(out) , contiguous :: sindex(:)
12387 integer(IK) , intent(out) :: neval
12388 integer(IK) , intent(out) :: nint
12389 integer(IK) :: err
12390 end function
12391#endif
12392
12393#if RK3_ENABLED
12394 module function QAGP_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12396 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK3
12397#endif
12398 use pm_kind, only: RKC => RK3
12399 procedure(real(RKC)) :: getFunc
12400 real(RKC) , intent(in) :: lb
12401 real(RKC) , intent(in) :: ub
12402 real(RKC) , intent(in) :: abstol
12403 real(RKC) , intent(in) :: reltol
12404 type(GK21_type) , intent(in) :: qrule
12405 real(RKC) , intent(in) , contiguous :: help(:)
12406 real(RKC) , intent(out) :: integral, abserr
12407 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12408 integer(IK) , intent(out) , contiguous :: sindex(:)
12409 integer(IK) , intent(out) :: neval
12410 integer(IK) , intent(out) :: nint
12411 integer(IK) :: err
12412 end function
12413#endif
12414
12415#if RK2_ENABLED
12416 module function QAGP_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12418 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK2
12419#endif
12420 use pm_kind, only: RKC => RK2
12421 procedure(real(RKC)) :: getFunc
12422 real(RKC) , intent(in) :: lb
12423 real(RKC) , intent(in) :: ub
12424 real(RKC) , intent(in) :: abstol
12425 real(RKC) , intent(in) :: reltol
12426 type(GK21_type) , intent(in) :: qrule
12427 real(RKC) , intent(in) , contiguous :: help(:)
12428 real(RKC) , intent(out) :: integral, abserr
12429 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12430 integer(IK) , intent(out) , contiguous :: sindex(:)
12431 integer(IK) , intent(out) :: neval
12432 integer(IK) , intent(out) :: nint
12433 integer(IK) :: err
12434 end function
12435#endif
12436
12437#if RK1_ENABLED
12438 module function QAGP_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12439#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12440 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FF_RK1
12441#endif
12442 use pm_kind, only: RKC => RK1
12443 procedure(real(RKC)) :: getFunc
12444 real(RKC) , intent(in) :: lb
12445 real(RKC) , intent(in) :: ub
12446 real(RKC) , intent(in) :: abstol
12447 real(RKC) , intent(in) :: reltol
12448 type(GK21_type) , intent(in) :: qrule
12449 real(RKC) , intent(in) , contiguous :: help(:)
12450 real(RKC) , intent(out) :: integral, abserr
12451 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12452 integer(IK) , intent(out) , contiguous :: sindex(:)
12453 integer(IK) , intent(out) :: neval
12454 integer(IK) , intent(out) :: nint
12455 integer(IK) :: err
12456 end function
12457#endif
12458
12459 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12460
12461#if RK5_ENABLED
12462 module function QAGP_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12464 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK5
12465#endif
12466 use pm_kind, only: RKC => RK5
12467 procedure(real(RKC)) :: getFunc
12468 real(RKC) , intent(in) :: lb
12469 type(pinf_type) , intent(in) :: ub
12470 real(RKC) , intent(in) :: abstol
12471 real(RKC) , intent(in) :: reltol
12472 type(GK21_type) , intent(in) :: qrule
12473 real(RKC) , intent(in) , contiguous :: help(:)
12474 real(RKC) , intent(out) :: integral, abserr
12475 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12476 integer(IK) , intent(out) , contiguous :: sindex(:)
12477 integer(IK) , intent(out) :: neval
12478 integer(IK) , intent(out) :: nint
12479 integer(IK) :: err
12480 end function
12481#endif
12482
12483#if RK4_ENABLED
12484 module function QAGP_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12486 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK4
12487#endif
12488 use pm_kind, only: RKC => RK4
12489 procedure(real(RKC)) :: getFunc
12490 real(RKC) , intent(in) :: lb
12491 type(pinf_type) , intent(in) :: ub
12492 real(RKC) , intent(in) :: abstol
12493 real(RKC) , intent(in) :: reltol
12494 type(GK21_type) , intent(in) :: qrule
12495 real(RKC) , intent(in) , contiguous :: help(:)
12496 real(RKC) , intent(out) :: integral, abserr
12497 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12498 integer(IK) , intent(out) , contiguous :: sindex(:)
12499 integer(IK) , intent(out) :: neval
12500 integer(IK) , intent(out) :: nint
12501 integer(IK) :: err
12502 end function
12503#endif
12504
12505#if RK3_ENABLED
12506 module function QAGP_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12508 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK3
12509#endif
12510 use pm_kind, only: RKC => RK3
12511 procedure(real(RKC)) :: getFunc
12512 real(RKC) , intent(in) :: lb
12513 type(pinf_type) , intent(in) :: ub
12514 real(RKC) , intent(in) :: abstol
12515 real(RKC) , intent(in) :: reltol
12516 type(GK21_type) , intent(in) :: qrule
12517 real(RKC) , intent(in) , contiguous :: help(:)
12518 real(RKC) , intent(out) :: integral, abserr
12519 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12520 integer(IK) , intent(out) , contiguous :: sindex(:)
12521 integer(IK) , intent(out) :: neval
12522 integer(IK) , intent(out) :: nint
12523 integer(IK) :: err
12524 end function
12525#endif
12526
12527#if RK2_ENABLED
12528 module function QAGP_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12530 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK2
12531#endif
12532 use pm_kind, only: RKC => RK2
12533 procedure(real(RKC)) :: getFunc
12534 real(RKC) , intent(in) :: lb
12535 type(pinf_type) , intent(in) :: ub
12536 real(RKC) , intent(in) :: abstol
12537 real(RKC) , intent(in) :: reltol
12538 type(GK21_type) , intent(in) :: qrule
12539 real(RKC) , intent(in) , contiguous :: help(:)
12540 real(RKC) , intent(out) :: integral, abserr
12541 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12542 integer(IK) , intent(out) , contiguous :: sindex(:)
12543 integer(IK) , intent(out) :: neval
12544 integer(IK) , intent(out) :: nint
12545 integer(IK) :: err
12546 end function
12547#endif
12548
12549#if RK1_ENABLED
12550 module function QAGP_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12552 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_FI_RK1
12553#endif
12554 use pm_kind, only: RKC => RK1
12555 procedure(real(RKC)) :: getFunc
12556 real(RKC) , intent(in) :: lb
12557 type(pinf_type) , intent(in) :: ub
12558 real(RKC) , intent(in) :: abstol
12559 real(RKC) , intent(in) :: reltol
12560 type(GK21_type) , intent(in) :: qrule
12561 real(RKC) , intent(in) , contiguous :: help(:)
12562 real(RKC) , intent(out) :: integral, abserr
12563 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12564 integer(IK) , intent(out) , contiguous :: sindex(:)
12565 integer(IK) , intent(out) :: neval
12566 integer(IK) , intent(out) :: nint
12567 integer(IK) :: err
12568 end function
12569#endif
12570
12571 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12572
12573#if RK5_ENABLED
12574 module function QAGP_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12576 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK5
12577#endif
12578 use pm_kind, only: RKC => RK5
12579 procedure(real(RKC)) :: getFunc
12580 type(ninf_type) , intent(in) :: lb
12581 real(RKC) , intent(in) :: ub
12582 real(RKC) , intent(in) :: abstol
12583 real(RKC) , intent(in) :: reltol
12584 type(GK21_type) , intent(in) :: qrule
12585 real(RKC) , intent(in) , contiguous :: help(:)
12586 real(RKC) , intent(out) :: integral, abserr
12587 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12588 integer(IK) , intent(out) , contiguous :: sindex(:)
12589 integer(IK) , intent(out) :: neval
12590 integer(IK) , intent(out) :: nint
12591 integer(IK) :: err
12592 end function
12593#endif
12594
12595#if RK4_ENABLED
12596 module function QAGP_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12598 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK4
12599#endif
12600 use pm_kind, only: RKC => RK4
12601 procedure(real(RKC)) :: getFunc
12602 type(ninf_type) , intent(in) :: lb
12603 real(RKC) , intent(in) :: ub
12604 real(RKC) , intent(in) :: abstol
12605 real(RKC) , intent(in) :: reltol
12606 type(GK21_type) , intent(in) :: qrule
12607 real(RKC) , intent(in) , contiguous :: help(:)
12608 real(RKC) , intent(out) :: integral, abserr
12609 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12610 integer(IK) , intent(out) , contiguous :: sindex(:)
12611 integer(IK) , intent(out) :: neval
12612 integer(IK) , intent(out) :: nint
12613 integer(IK) :: err
12614 end function
12615#endif
12616
12617#if RK3_ENABLED
12618 module function QAGP_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12620 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK3
12621#endif
12622 use pm_kind, only: RKC => RK3
12623 procedure(real(RKC)) :: getFunc
12624 type(ninf_type) , intent(in) :: lb
12625 real(RKC) , intent(in) :: ub
12626 real(RKC) , intent(in) :: abstol
12627 real(RKC) , intent(in) :: reltol
12628 type(GK21_type) , intent(in) :: qrule
12629 real(RKC) , intent(in) , contiguous :: help(:)
12630 real(RKC) , intent(out) :: integral, abserr
12631 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12632 integer(IK) , intent(out) , contiguous :: sindex(:)
12633 integer(IK) , intent(out) :: neval
12634 integer(IK) , intent(out) :: nint
12635 integer(IK) :: err
12636 end function
12637#endif
12638
12639#if RK2_ENABLED
12640 module function QAGP_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12642 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK2
12643#endif
12644 use pm_kind, only: RKC => RK2
12645 procedure(real(RKC)) :: getFunc
12646 type(ninf_type) , intent(in) :: lb
12647 real(RKC) , intent(in) :: ub
12648 real(RKC) , intent(in) :: abstol
12649 real(RKC) , intent(in) :: reltol
12650 type(GK21_type) , intent(in) :: qrule
12651 real(RKC) , intent(in) , contiguous :: help(:)
12652 real(RKC) , intent(out) :: integral, abserr
12653 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12654 integer(IK) , intent(out) , contiguous :: sindex(:)
12655 integer(IK) , intent(out) :: neval
12656 integer(IK) , intent(out) :: nint
12657 integer(IK) :: err
12658 end function
12659#endif
12660
12661#if RK1_ENABLED
12662 module function QAGP_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12664 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_IF_RK1
12665#endif
12666 use pm_kind, only: RKC => RK1
12667 procedure(real(RKC)) :: getFunc
12668 type(ninf_type) , intent(in) :: lb
12669 real(RKC) , intent(in) :: ub
12670 real(RKC) , intent(in) :: abstol
12671 real(RKC) , intent(in) :: reltol
12672 type(GK21_type) , intent(in) :: qrule
12673 real(RKC) , intent(in) , contiguous :: help(:)
12674 real(RKC) , intent(out) :: integral, abserr
12675 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12676 integer(IK) , intent(out) , contiguous :: sindex(:)
12677 integer(IK) , intent(out) :: neval
12678 integer(IK) , intent(out) :: nint
12679 integer(IK) :: err
12680 end function
12681#endif
12682
12683 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12684
12685#if RK5_ENABLED
12686 module function QAGP_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12688 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK5
12689#endif
12690 use pm_kind, only: RKC => RK5
12691 procedure(real(RKC)) :: getFunc
12692 type(ninf_type) , intent(in) :: lb
12693 type(pinf_type) , intent(in) :: ub
12694 real(RKC) , intent(in) :: abstol
12695 real(RKC) , intent(in) :: reltol
12696 type(GK21_type) , intent(in) :: qrule
12697 real(RKC) , intent(in) , contiguous :: help(:)
12698 real(RKC) , intent(out) :: integral, abserr
12699 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12700 integer(IK) , intent(out) , contiguous :: sindex(:)
12701 integer(IK) , intent(out) :: neval
12702 integer(IK) , intent(out) :: nint
12703 integer(IK) :: err
12704 end function
12705#endif
12706
12707#if RK4_ENABLED
12708 module function QAGP_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12710 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK4
12711#endif
12712 use pm_kind, only: RKC => RK4
12713 procedure(real(RKC)) :: getFunc
12714 type(ninf_type) , intent(in) :: lb
12715 type(pinf_type) , intent(in) :: ub
12716 real(RKC) , intent(in) :: abstol
12717 real(RKC) , intent(in) :: reltol
12718 type(GK21_type) , intent(in) :: qrule
12719 real(RKC) , intent(in) , contiguous :: help(:)
12720 real(RKC) , intent(out) :: integral, abserr
12721 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12722 integer(IK) , intent(out) , contiguous :: sindex(:)
12723 integer(IK) , intent(out) :: neval
12724 integer(IK) , intent(out) :: nint
12725 integer(IK) :: err
12726 end function
12727#endif
12728
12729#if RK3_ENABLED
12730 module function QAGP_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12732 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK3
12733#endif
12734 use pm_kind, only: RKC => RK3
12735 procedure(real(RKC)) :: getFunc
12736 type(ninf_type) , intent(in) :: lb
12737 type(pinf_type) , intent(in) :: ub
12738 real(RKC) , intent(in) :: abstol
12739 real(RKC) , intent(in) :: reltol
12740 type(GK21_type) , intent(in) :: qrule
12741 real(RKC) , intent(in) , contiguous :: help(:)
12742 real(RKC) , intent(out) :: integral, abserr
12743 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12744 integer(IK) , intent(out) , contiguous :: sindex(:)
12745 integer(IK) , intent(out) :: neval
12746 integer(IK) , intent(out) :: nint
12747 integer(IK) :: err
12748 end function
12749#endif
12750
12751#if RK2_ENABLED
12752 module function QAGP_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12754 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK2
12755#endif
12756 use pm_kind, only: RKC => RK2
12757 procedure(real(RKC)) :: getFunc
12758 type(ninf_type) , intent(in) :: lb
12759 type(pinf_type) , intent(in) :: ub
12760 real(RKC) , intent(in) :: abstol
12761 real(RKC) , intent(in) :: reltol
12762 type(GK21_type) , intent(in) :: qrule
12763 real(RKC) , intent(in) , contiguous :: help(:)
12764 real(RKC) , intent(out) :: integral, abserr
12765 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12766 integer(IK) , intent(out) , contiguous :: sindex(:)
12767 integer(IK) , intent(out) :: neval
12768 integer(IK) , intent(out) :: nint
12769 integer(IK) :: err
12770 end function
12771#endif
12772
12773#if RK1_ENABLED
12774 module function QAGP_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12776 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK21_II_RK1
12777#endif
12778 use pm_kind, only: RKC => RK1
12779 procedure(real(RKC)) :: getFunc
12780 type(ninf_type) , intent(in) :: lb
12781 type(pinf_type) , intent(in) :: ub
12782 real(RKC) , intent(in) :: abstol
12783 real(RKC) , intent(in) :: reltol
12784 type(GK21_type) , intent(in) :: qrule
12785 real(RKC) , intent(in) , contiguous :: help(:)
12786 real(RKC) , intent(out) :: integral, abserr
12787 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12788 integer(IK) , intent(out) , contiguous :: sindex(:)
12789 integer(IK) , intent(out) :: neval
12790 integer(IK) , intent(out) :: nint
12791 integer(IK) :: err
12792 end function
12793#endif
12794
12795 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12796
12797 end interface
12798
12799 ! QAGP_GK31
12800
12801 interface getQuadErr
12802
12803 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12804
12805#if RK5_ENABLED
12806 module function QAGP_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12808 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK5
12809#endif
12810 use pm_kind, only: RKC => RK5
12811 procedure(real(RKC)) :: getFunc
12812 real(RKC) , intent(in) :: lb
12813 real(RKC) , intent(in) :: ub
12814 real(RKC) , intent(in) :: abstol
12815 real(RKC) , intent(in) :: reltol
12816 type(GK31_type) , intent(in) :: qrule
12817 real(RKC) , intent(in) , contiguous :: help(:)
12818 real(RKC) , intent(out) :: integral, abserr
12819 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12820 integer(IK) , intent(out) , contiguous :: sindex(:)
12821 integer(IK) , intent(out) :: neval
12822 integer(IK) , intent(out) :: nint
12823 integer(IK) :: err
12824 end function
12825#endif
12826
12827#if RK4_ENABLED
12828 module function QAGP_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12830 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK4
12831#endif
12832 use pm_kind, only: RKC => RK4
12833 procedure(real(RKC)) :: getFunc
12834 real(RKC) , intent(in) :: lb
12835 real(RKC) , intent(in) :: ub
12836 real(RKC) , intent(in) :: abstol
12837 real(RKC) , intent(in) :: reltol
12838 type(GK31_type) , intent(in) :: qrule
12839 real(RKC) , intent(in) , contiguous :: help(:)
12840 real(RKC) , intent(out) :: integral, abserr
12841 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12842 integer(IK) , intent(out) , contiguous :: sindex(:)
12843 integer(IK) , intent(out) :: neval
12844 integer(IK) , intent(out) :: nint
12845 integer(IK) :: err
12846 end function
12847#endif
12848
12849#if RK3_ENABLED
12850 module function QAGP_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12852 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK3
12853#endif
12854 use pm_kind, only: RKC => RK3
12855 procedure(real(RKC)) :: getFunc
12856 real(RKC) , intent(in) :: lb
12857 real(RKC) , intent(in) :: ub
12858 real(RKC) , intent(in) :: abstol
12859 real(RKC) , intent(in) :: reltol
12860 type(GK31_type) , intent(in) :: qrule
12861 real(RKC) , intent(in) , contiguous :: help(:)
12862 real(RKC) , intent(out) :: integral, abserr
12863 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12864 integer(IK) , intent(out) , contiguous :: sindex(:)
12865 integer(IK) , intent(out) :: neval
12866 integer(IK) , intent(out) :: nint
12867 integer(IK) :: err
12868 end function
12869#endif
12870
12871#if RK2_ENABLED
12872 module function QAGP_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12874 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK2
12875#endif
12876 use pm_kind, only: RKC => RK2
12877 procedure(real(RKC)) :: getFunc
12878 real(RKC) , intent(in) :: lb
12879 real(RKC) , intent(in) :: ub
12880 real(RKC) , intent(in) :: abstol
12881 real(RKC) , intent(in) :: reltol
12882 type(GK31_type) , intent(in) :: qrule
12883 real(RKC) , intent(in) , contiguous :: help(:)
12884 real(RKC) , intent(out) :: integral, abserr
12885 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12886 integer(IK) , intent(out) , contiguous :: sindex(:)
12887 integer(IK) , intent(out) :: neval
12888 integer(IK) , intent(out) :: nint
12889 integer(IK) :: err
12890 end function
12891#endif
12892
12893#if RK1_ENABLED
12894 module function QAGP_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12895#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12896 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FF_RK1
12897#endif
12898 use pm_kind, only: RKC => RK1
12899 procedure(real(RKC)) :: getFunc
12900 real(RKC) , intent(in) :: lb
12901 real(RKC) , intent(in) :: ub
12902 real(RKC) , intent(in) :: abstol
12903 real(RKC) , intent(in) :: reltol
12904 type(GK31_type) , intent(in) :: qrule
12905 real(RKC) , intent(in) , contiguous :: help(:)
12906 real(RKC) , intent(out) :: integral, abserr
12907 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12908 integer(IK) , intent(out) , contiguous :: sindex(:)
12909 integer(IK) , intent(out) :: neval
12910 integer(IK) , intent(out) :: nint
12911 integer(IK) :: err
12912 end function
12913#endif
12914
12915 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
12916
12917#if RK5_ENABLED
12918 module function QAGP_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12920 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK5
12921#endif
12922 use pm_kind, only: RKC => RK5
12923 procedure(real(RKC)) :: getFunc
12924 real(RKC) , intent(in) :: lb
12925 type(pinf_type) , intent(in) :: ub
12926 real(RKC) , intent(in) :: abstol
12927 real(RKC) , intent(in) :: reltol
12928 type(GK31_type) , intent(in) :: qrule
12929 real(RKC) , intent(in) , contiguous :: help(:)
12930 real(RKC) , intent(out) :: integral, abserr
12931 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12932 integer(IK) , intent(out) , contiguous :: sindex(:)
12933 integer(IK) , intent(out) :: neval
12934 integer(IK) , intent(out) :: nint
12935 integer(IK) :: err
12936 end function
12937#endif
12938
12939#if RK4_ENABLED
12940 module function QAGP_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12942 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK4
12943#endif
12944 use pm_kind, only: RKC => RK4
12945 procedure(real(RKC)) :: getFunc
12946 real(RKC) , intent(in) :: lb
12947 type(pinf_type) , intent(in) :: ub
12948 real(RKC) , intent(in) :: abstol
12949 real(RKC) , intent(in) :: reltol
12950 type(GK31_type) , intent(in) :: qrule
12951 real(RKC) , intent(in) , contiguous :: help(:)
12952 real(RKC) , intent(out) :: integral, abserr
12953 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12954 integer(IK) , intent(out) , contiguous :: sindex(:)
12955 integer(IK) , intent(out) :: neval
12956 integer(IK) , intent(out) :: nint
12957 integer(IK) :: err
12958 end function
12959#endif
12960
12961#if RK3_ENABLED
12962 module function QAGP_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12964 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK3
12965#endif
12966 use pm_kind, only: RKC => RK3
12967 procedure(real(RKC)) :: getFunc
12968 real(RKC) , intent(in) :: lb
12969 type(pinf_type) , intent(in) :: ub
12970 real(RKC) , intent(in) :: abstol
12971 real(RKC) , intent(in) :: reltol
12972 type(GK31_type) , intent(in) :: qrule
12973 real(RKC) , intent(in) , contiguous :: help(:)
12974 real(RKC) , intent(out) :: integral, abserr
12975 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12976 integer(IK) , intent(out) , contiguous :: sindex(:)
12977 integer(IK) , intent(out) :: neval
12978 integer(IK) , intent(out) :: nint
12979 integer(IK) :: err
12980 end function
12981#endif
12982
12983#if RK2_ENABLED
12984 module function QAGP_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
12985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
12986 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK2
12987#endif
12988 use pm_kind, only: RKC => RK2
12989 procedure(real(RKC)) :: getFunc
12990 real(RKC) , intent(in) :: lb
12991 type(pinf_type) , intent(in) :: ub
12992 real(RKC) , intent(in) :: abstol
12993 real(RKC) , intent(in) :: reltol
12994 type(GK31_type) , intent(in) :: qrule
12995 real(RKC) , intent(in) , contiguous :: help(:)
12996 real(RKC) , intent(out) :: integral, abserr
12997 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
12998 integer(IK) , intent(out) , contiguous :: sindex(:)
12999 integer(IK) , intent(out) :: neval
13000 integer(IK) , intent(out) :: nint
13001 integer(IK) :: err
13002 end function
13003#endif
13004
13005#if RK1_ENABLED
13006 module function QAGP_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13007#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13008 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_FI_RK1
13009#endif
13010 use pm_kind, only: RKC => RK1
13011 procedure(real(RKC)) :: getFunc
13012 real(RKC) , intent(in) :: lb
13013 type(pinf_type) , intent(in) :: ub
13014 real(RKC) , intent(in) :: abstol
13015 real(RKC) , intent(in) :: reltol
13016 type(GK31_type) , intent(in) :: qrule
13017 real(RKC) , intent(in) , contiguous :: help(:)
13018 real(RKC) , intent(out) :: integral, abserr
13019 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13020 integer(IK) , intent(out) , contiguous :: sindex(:)
13021 integer(IK) , intent(out) :: neval
13022 integer(IK) , intent(out) :: nint
13023 integer(IK) :: err
13024 end function
13025#endif
13026
13027 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13028
13029#if RK5_ENABLED
13030 module function QAGP_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13032 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK5
13033#endif
13034 use pm_kind, only: RKC => RK5
13035 procedure(real(RKC)) :: getFunc
13036 type(ninf_type) , intent(in) :: lb
13037 real(RKC) , intent(in) :: ub
13038 real(RKC) , intent(in) :: abstol
13039 real(RKC) , intent(in) :: reltol
13040 type(GK31_type) , intent(in) :: qrule
13041 real(RKC) , intent(in) , contiguous :: help(:)
13042 real(RKC) , intent(out) :: integral, abserr
13043 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13044 integer(IK) , intent(out) , contiguous :: sindex(:)
13045 integer(IK) , intent(out) :: neval
13046 integer(IK) , intent(out) :: nint
13047 integer(IK) :: err
13048 end function
13049#endif
13050
13051#if RK4_ENABLED
13052 module function QAGP_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13054 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK4
13055#endif
13056 use pm_kind, only: RKC => RK4
13057 procedure(real(RKC)) :: getFunc
13058 type(ninf_type) , intent(in) :: lb
13059 real(RKC) , intent(in) :: ub
13060 real(RKC) , intent(in) :: abstol
13061 real(RKC) , intent(in) :: reltol
13062 type(GK31_type) , intent(in) :: qrule
13063 real(RKC) , intent(in) , contiguous :: help(:)
13064 real(RKC) , intent(out) :: integral, abserr
13065 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13066 integer(IK) , intent(out) , contiguous :: sindex(:)
13067 integer(IK) , intent(out) :: neval
13068 integer(IK) , intent(out) :: nint
13069 integer(IK) :: err
13070 end function
13071#endif
13072
13073#if RK3_ENABLED
13074 module function QAGP_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13076 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK3
13077#endif
13078 use pm_kind, only: RKC => RK3
13079 procedure(real(RKC)) :: getFunc
13080 type(ninf_type) , intent(in) :: lb
13081 real(RKC) , intent(in) :: ub
13082 real(RKC) , intent(in) :: abstol
13083 real(RKC) , intent(in) :: reltol
13084 type(GK31_type) , intent(in) :: qrule
13085 real(RKC) , intent(in) , contiguous :: help(:)
13086 real(RKC) , intent(out) :: integral, abserr
13087 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13088 integer(IK) , intent(out) , contiguous :: sindex(:)
13089 integer(IK) , intent(out) :: neval
13090 integer(IK) , intent(out) :: nint
13091 integer(IK) :: err
13092 end function
13093#endif
13094
13095#if RK2_ENABLED
13096 module function QAGP_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13098 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK2
13099#endif
13100 use pm_kind, only: RKC => RK2
13101 procedure(real(RKC)) :: getFunc
13102 type(ninf_type) , intent(in) :: lb
13103 real(RKC) , intent(in) :: ub
13104 real(RKC) , intent(in) :: abstol
13105 real(RKC) , intent(in) :: reltol
13106 type(GK31_type) , intent(in) :: qrule
13107 real(RKC) , intent(in) , contiguous :: help(:)
13108 real(RKC) , intent(out) :: integral, abserr
13109 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13110 integer(IK) , intent(out) , contiguous :: sindex(:)
13111 integer(IK) , intent(out) :: neval
13112 integer(IK) , intent(out) :: nint
13113 integer(IK) :: err
13114 end function
13115#endif
13116
13117#if RK1_ENABLED
13118 module function QAGP_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13120 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_IF_RK1
13121#endif
13122 use pm_kind, only: RKC => RK1
13123 procedure(real(RKC)) :: getFunc
13124 type(ninf_type) , intent(in) :: lb
13125 real(RKC) , intent(in) :: ub
13126 real(RKC) , intent(in) :: abstol
13127 real(RKC) , intent(in) :: reltol
13128 type(GK31_type) , intent(in) :: qrule
13129 real(RKC) , intent(in) , contiguous :: help(:)
13130 real(RKC) , intent(out) :: integral, abserr
13131 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13132 integer(IK) , intent(out) , contiguous :: sindex(:)
13133 integer(IK) , intent(out) :: neval
13134 integer(IK) , intent(out) :: nint
13135 integer(IK) :: err
13136 end function
13137#endif
13138
13139 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13140
13141#if RK5_ENABLED
13142 module function QAGP_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13144 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK5
13145#endif
13146 use pm_kind, only: RKC => RK5
13147 procedure(real(RKC)) :: getFunc
13148 type(ninf_type) , intent(in) :: lb
13149 type(pinf_type) , intent(in) :: ub
13150 real(RKC) , intent(in) :: abstol
13151 real(RKC) , intent(in) :: reltol
13152 type(GK31_type) , intent(in) :: qrule
13153 real(RKC) , intent(in) , contiguous :: help(:)
13154 real(RKC) , intent(out) :: integral, abserr
13155 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13156 integer(IK) , intent(out) , contiguous :: sindex(:)
13157 integer(IK) , intent(out) :: neval
13158 integer(IK) , intent(out) :: nint
13159 integer(IK) :: err
13160 end function
13161#endif
13162
13163#if RK4_ENABLED
13164 module function QAGP_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13166 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK4
13167#endif
13168 use pm_kind, only: RKC => RK4
13169 procedure(real(RKC)) :: getFunc
13170 type(ninf_type) , intent(in) :: lb
13171 type(pinf_type) , intent(in) :: ub
13172 real(RKC) , intent(in) :: abstol
13173 real(RKC) , intent(in) :: reltol
13174 type(GK31_type) , intent(in) :: qrule
13175 real(RKC) , intent(in) , contiguous :: help(:)
13176 real(RKC) , intent(out) :: integral, abserr
13177 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13178 integer(IK) , intent(out) , contiguous :: sindex(:)
13179 integer(IK) , intent(out) :: neval
13180 integer(IK) , intent(out) :: nint
13181 integer(IK) :: err
13182 end function
13183#endif
13184
13185#if RK3_ENABLED
13186 module function QAGP_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13188 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK3
13189#endif
13190 use pm_kind, only: RKC => RK3
13191 procedure(real(RKC)) :: getFunc
13192 type(ninf_type) , intent(in) :: lb
13193 type(pinf_type) , intent(in) :: ub
13194 real(RKC) , intent(in) :: abstol
13195 real(RKC) , intent(in) :: reltol
13196 type(GK31_type) , intent(in) :: qrule
13197 real(RKC) , intent(in) , contiguous :: help(:)
13198 real(RKC) , intent(out) :: integral, abserr
13199 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13200 integer(IK) , intent(out) , contiguous :: sindex(:)
13201 integer(IK) , intent(out) :: neval
13202 integer(IK) , intent(out) :: nint
13203 integer(IK) :: err
13204 end function
13205#endif
13206
13207#if RK2_ENABLED
13208 module function QAGP_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13210 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK2
13211#endif
13212 use pm_kind, only: RKC => RK2
13213 procedure(real(RKC)) :: getFunc
13214 type(ninf_type) , intent(in) :: lb
13215 type(pinf_type) , intent(in) :: ub
13216 real(RKC) , intent(in) :: abstol
13217 real(RKC) , intent(in) :: reltol
13218 type(GK31_type) , intent(in) :: qrule
13219 real(RKC) , intent(in) , contiguous :: help(:)
13220 real(RKC) , intent(out) :: integral, abserr
13221 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13222 integer(IK) , intent(out) , contiguous :: sindex(:)
13223 integer(IK) , intent(out) :: neval
13224 integer(IK) , intent(out) :: nint
13225 integer(IK) :: err
13226 end function
13227#endif
13228
13229#if RK1_ENABLED
13230 module function QAGP_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13232 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK31_II_RK1
13233#endif
13234 use pm_kind, only: RKC => RK1
13235 procedure(real(RKC)) :: getFunc
13236 type(ninf_type) , intent(in) :: lb
13237 type(pinf_type) , intent(in) :: ub
13238 real(RKC) , intent(in) :: abstol
13239 real(RKC) , intent(in) :: reltol
13240 type(GK31_type) , intent(in) :: qrule
13241 real(RKC) , intent(in) , contiguous :: help(:)
13242 real(RKC) , intent(out) :: integral, abserr
13243 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13244 integer(IK) , intent(out) , contiguous :: sindex(:)
13245 integer(IK) , intent(out) :: neval
13246 integer(IK) , intent(out) :: nint
13247 integer(IK) :: err
13248 end function
13249#endif
13250
13251 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13252
13253 end interface
13254
13255 ! QAGP_GK41
13256
13257 interface getQuadErr
13258
13259 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13260
13261#if RK5_ENABLED
13262 module function QAGP_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13264 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK5
13265#endif
13266 use pm_kind, only: RKC => RK5
13267 procedure(real(RKC)) :: getFunc
13268 real(RKC) , intent(in) :: lb
13269 real(RKC) , intent(in) :: ub
13270 real(RKC) , intent(in) :: abstol
13271 real(RKC) , intent(in) :: reltol
13272 type(GK41_type) , intent(in) :: qrule
13273 real(RKC) , intent(in) , contiguous :: help(:)
13274 real(RKC) , intent(out) :: integral, abserr
13275 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13276 integer(IK) , intent(out) , contiguous :: sindex(:)
13277 integer(IK) , intent(out) :: neval
13278 integer(IK) , intent(out) :: nint
13279 integer(IK) :: err
13280 end function
13281#endif
13282
13283#if RK4_ENABLED
13284 module function QAGP_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13286 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK4
13287#endif
13288 use pm_kind, only: RKC => RK4
13289 procedure(real(RKC)) :: getFunc
13290 real(RKC) , intent(in) :: lb
13291 real(RKC) , intent(in) :: ub
13292 real(RKC) , intent(in) :: abstol
13293 real(RKC) , intent(in) :: reltol
13294 type(GK41_type) , intent(in) :: qrule
13295 real(RKC) , intent(in) , contiguous :: help(:)
13296 real(RKC) , intent(out) :: integral, abserr
13297 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13298 integer(IK) , intent(out) , contiguous :: sindex(:)
13299 integer(IK) , intent(out) :: neval
13300 integer(IK) , intent(out) :: nint
13301 integer(IK) :: err
13302 end function
13303#endif
13304
13305#if RK3_ENABLED
13306 module function QAGP_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13308 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK3
13309#endif
13310 use pm_kind, only: RKC => RK3
13311 procedure(real(RKC)) :: getFunc
13312 real(RKC) , intent(in) :: lb
13313 real(RKC) , intent(in) :: ub
13314 real(RKC) , intent(in) :: abstol
13315 real(RKC) , intent(in) :: reltol
13316 type(GK41_type) , intent(in) :: qrule
13317 real(RKC) , intent(in) , contiguous :: help(:)
13318 real(RKC) , intent(out) :: integral, abserr
13319 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13320 integer(IK) , intent(out) , contiguous :: sindex(:)
13321 integer(IK) , intent(out) :: neval
13322 integer(IK) , intent(out) :: nint
13323 integer(IK) :: err
13324 end function
13325#endif
13326
13327#if RK2_ENABLED
13328 module function QAGP_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13330 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK2
13331#endif
13332 use pm_kind, only: RKC => RK2
13333 procedure(real(RKC)) :: getFunc
13334 real(RKC) , intent(in) :: lb
13335 real(RKC) , intent(in) :: ub
13336 real(RKC) , intent(in) :: abstol
13337 real(RKC) , intent(in) :: reltol
13338 type(GK41_type) , intent(in) :: qrule
13339 real(RKC) , intent(in) , contiguous :: help(:)
13340 real(RKC) , intent(out) :: integral, abserr
13341 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13342 integer(IK) , intent(out) , contiguous :: sindex(:)
13343 integer(IK) , intent(out) :: neval
13344 integer(IK) , intent(out) :: nint
13345 integer(IK) :: err
13346 end function
13347#endif
13348
13349#if RK1_ENABLED
13350 module function QAGP_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13352 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FF_RK1
13353#endif
13354 use pm_kind, only: RKC => RK1
13355 procedure(real(RKC)) :: getFunc
13356 real(RKC) , intent(in) :: lb
13357 real(RKC) , intent(in) :: ub
13358 real(RKC) , intent(in) :: abstol
13359 real(RKC) , intent(in) :: reltol
13360 type(GK41_type) , intent(in) :: qrule
13361 real(RKC) , intent(in) , contiguous :: help(:)
13362 real(RKC) , intent(out) :: integral, abserr
13363 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13364 integer(IK) , intent(out) , contiguous :: sindex(:)
13365 integer(IK) , intent(out) :: neval
13366 integer(IK) , intent(out) :: nint
13367 integer(IK) :: err
13368 end function
13369#endif
13370
13371 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13372
13373#if RK5_ENABLED
13374 module function QAGP_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13376 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK5
13377#endif
13378 use pm_kind, only: RKC => RK5
13379 procedure(real(RKC)) :: getFunc
13380 real(RKC) , intent(in) :: lb
13381 type(pinf_type) , intent(in) :: ub
13382 real(RKC) , intent(in) :: abstol
13383 real(RKC) , intent(in) :: reltol
13384 type(GK41_type) , intent(in) :: qrule
13385 real(RKC) , intent(in) , contiguous :: help(:)
13386 real(RKC) , intent(out) :: integral, abserr
13387 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13388 integer(IK) , intent(out) , contiguous :: sindex(:)
13389 integer(IK) , intent(out) :: neval
13390 integer(IK) , intent(out) :: nint
13391 integer(IK) :: err
13392 end function
13393#endif
13394
13395#if RK4_ENABLED
13396 module function QAGP_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13398 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK4
13399#endif
13400 use pm_kind, only: RKC => RK4
13401 procedure(real(RKC)) :: getFunc
13402 real(RKC) , intent(in) :: lb
13403 type(pinf_type) , intent(in) :: ub
13404 real(RKC) , intent(in) :: abstol
13405 real(RKC) , intent(in) :: reltol
13406 type(GK41_type) , intent(in) :: qrule
13407 real(RKC) , intent(in) , contiguous :: help(:)
13408 real(RKC) , intent(out) :: integral, abserr
13409 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13410 integer(IK) , intent(out) , contiguous :: sindex(:)
13411 integer(IK) , intent(out) :: neval
13412 integer(IK) , intent(out) :: nint
13413 integer(IK) :: err
13414 end function
13415#endif
13416
13417#if RK3_ENABLED
13418 module function QAGP_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13419#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13420 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK3
13421#endif
13422 use pm_kind, only: RKC => RK3
13423 procedure(real(RKC)) :: getFunc
13424 real(RKC) , intent(in) :: lb
13425 type(pinf_type) , intent(in) :: ub
13426 real(RKC) , intent(in) :: abstol
13427 real(RKC) , intent(in) :: reltol
13428 type(GK41_type) , intent(in) :: qrule
13429 real(RKC) , intent(in) , contiguous :: help(:)
13430 real(RKC) , intent(out) :: integral, abserr
13431 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13432 integer(IK) , intent(out) , contiguous :: sindex(:)
13433 integer(IK) , intent(out) :: neval
13434 integer(IK) , intent(out) :: nint
13435 integer(IK) :: err
13436 end function
13437#endif
13438
13439#if RK2_ENABLED
13440 module function QAGP_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13442 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK2
13443#endif
13444 use pm_kind, only: RKC => RK2
13445 procedure(real(RKC)) :: getFunc
13446 real(RKC) , intent(in) :: lb
13447 type(pinf_type) , intent(in) :: ub
13448 real(RKC) , intent(in) :: abstol
13449 real(RKC) , intent(in) :: reltol
13450 type(GK41_type) , intent(in) :: qrule
13451 real(RKC) , intent(in) , contiguous :: help(:)
13452 real(RKC) , intent(out) :: integral, abserr
13453 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13454 integer(IK) , intent(out) , contiguous :: sindex(:)
13455 integer(IK) , intent(out) :: neval
13456 integer(IK) , intent(out) :: nint
13457 integer(IK) :: err
13458 end function
13459#endif
13460
13461#if RK1_ENABLED
13462 module function QAGP_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13464 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_FI_RK1
13465#endif
13466 use pm_kind, only: RKC => RK1
13467 procedure(real(RKC)) :: getFunc
13468 real(RKC) , intent(in) :: lb
13469 type(pinf_type) , intent(in) :: ub
13470 real(RKC) , intent(in) :: abstol
13471 real(RKC) , intent(in) :: reltol
13472 type(GK41_type) , intent(in) :: qrule
13473 real(RKC) , intent(in) , contiguous :: help(:)
13474 real(RKC) , intent(out) :: integral, abserr
13475 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13476 integer(IK) , intent(out) , contiguous :: sindex(:)
13477 integer(IK) , intent(out) :: neval
13478 integer(IK) , intent(out) :: nint
13479 integer(IK) :: err
13480 end function
13481#endif
13482
13483 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13484
13485#if RK5_ENABLED
13486 module function QAGP_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13488 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK5
13489#endif
13490 use pm_kind, only: RKC => RK5
13491 procedure(real(RKC)) :: getFunc
13492 type(ninf_type) , intent(in) :: lb
13493 real(RKC) , intent(in) :: ub
13494 real(RKC) , intent(in) :: abstol
13495 real(RKC) , intent(in) :: reltol
13496 type(GK41_type) , intent(in) :: qrule
13497 real(RKC) , intent(in) , contiguous :: help(:)
13498 real(RKC) , intent(out) :: integral, abserr
13499 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13500 integer(IK) , intent(out) , contiguous :: sindex(:)
13501 integer(IK) , intent(out) :: neval
13502 integer(IK) , intent(out) :: nint
13503 integer(IK) :: err
13504 end function
13505#endif
13506
13507#if RK4_ENABLED
13508 module function QAGP_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13510 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK4
13511#endif
13512 use pm_kind, only: RKC => RK4
13513 procedure(real(RKC)) :: getFunc
13514 type(ninf_type) , intent(in) :: lb
13515 real(RKC) , intent(in) :: ub
13516 real(RKC) , intent(in) :: abstol
13517 real(RKC) , intent(in) :: reltol
13518 type(GK41_type) , intent(in) :: qrule
13519 real(RKC) , intent(in) , contiguous :: help(:)
13520 real(RKC) , intent(out) :: integral, abserr
13521 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13522 integer(IK) , intent(out) , contiguous :: sindex(:)
13523 integer(IK) , intent(out) :: neval
13524 integer(IK) , intent(out) :: nint
13525 integer(IK) :: err
13526 end function
13527#endif
13528
13529#if RK3_ENABLED
13530 module function QAGP_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13532 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK3
13533#endif
13534 use pm_kind, only: RKC => RK3
13535 procedure(real(RKC)) :: getFunc
13536 type(ninf_type) , intent(in) :: lb
13537 real(RKC) , intent(in) :: ub
13538 real(RKC) , intent(in) :: abstol
13539 real(RKC) , intent(in) :: reltol
13540 type(GK41_type) , intent(in) :: qrule
13541 real(RKC) , intent(in) , contiguous :: help(:)
13542 real(RKC) , intent(out) :: integral, abserr
13543 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13544 integer(IK) , intent(out) , contiguous :: sindex(:)
13545 integer(IK) , intent(out) :: neval
13546 integer(IK) , intent(out) :: nint
13547 integer(IK) :: err
13548 end function
13549#endif
13550
13551#if RK2_ENABLED
13552 module function QAGP_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13554 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK2
13555#endif
13556 use pm_kind, only: RKC => RK2
13557 procedure(real(RKC)) :: getFunc
13558 type(ninf_type) , intent(in) :: lb
13559 real(RKC) , intent(in) :: ub
13560 real(RKC) , intent(in) :: abstol
13561 real(RKC) , intent(in) :: reltol
13562 type(GK41_type) , intent(in) :: qrule
13563 real(RKC) , intent(in) , contiguous :: help(:)
13564 real(RKC) , intent(out) :: integral, abserr
13565 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13566 integer(IK) , intent(out) , contiguous :: sindex(:)
13567 integer(IK) , intent(out) :: neval
13568 integer(IK) , intent(out) :: nint
13569 integer(IK) :: err
13570 end function
13571#endif
13572
13573#if RK1_ENABLED
13574 module function QAGP_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13576 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_IF_RK1
13577#endif
13578 use pm_kind, only: RKC => RK1
13579 procedure(real(RKC)) :: getFunc
13580 type(ninf_type) , intent(in) :: lb
13581 real(RKC) , intent(in) :: ub
13582 real(RKC) , intent(in) :: abstol
13583 real(RKC) , intent(in) :: reltol
13584 type(GK41_type) , intent(in) :: qrule
13585 real(RKC) , intent(in) , contiguous :: help(:)
13586 real(RKC) , intent(out) :: integral, abserr
13587 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13588 integer(IK) , intent(out) , contiguous :: sindex(:)
13589 integer(IK) , intent(out) :: neval
13590 integer(IK) , intent(out) :: nint
13591 integer(IK) :: err
13592 end function
13593#endif
13594
13595 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13596
13597#if RK5_ENABLED
13598 module function QAGP_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13600 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK5
13601#endif
13602 use pm_kind, only: RKC => RK5
13603 procedure(real(RKC)) :: getFunc
13604 type(ninf_type) , intent(in) :: lb
13605 type(pinf_type) , intent(in) :: ub
13606 real(RKC) , intent(in) :: abstol
13607 real(RKC) , intent(in) :: reltol
13608 type(GK41_type) , intent(in) :: qrule
13609 real(RKC) , intent(in) , contiguous :: help(:)
13610 real(RKC) , intent(out) :: integral, abserr
13611 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13612 integer(IK) , intent(out) , contiguous :: sindex(:)
13613 integer(IK) , intent(out) :: neval
13614 integer(IK) , intent(out) :: nint
13615 integer(IK) :: err
13616 end function
13617#endif
13618
13619#if RK4_ENABLED
13620 module function QAGP_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13622 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK4
13623#endif
13624 use pm_kind, only: RKC => RK4
13625 procedure(real(RKC)) :: getFunc
13626 type(ninf_type) , intent(in) :: lb
13627 type(pinf_type) , intent(in) :: ub
13628 real(RKC) , intent(in) :: abstol
13629 real(RKC) , intent(in) :: reltol
13630 type(GK41_type) , intent(in) :: qrule
13631 real(RKC) , intent(in) , contiguous :: help(:)
13632 real(RKC) , intent(out) :: integral, abserr
13633 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13634 integer(IK) , intent(out) , contiguous :: sindex(:)
13635 integer(IK) , intent(out) :: neval
13636 integer(IK) , intent(out) :: nint
13637 integer(IK) :: err
13638 end function
13639#endif
13640
13641#if RK3_ENABLED
13642 module function QAGP_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13644 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK3
13645#endif
13646 use pm_kind, only: RKC => RK3
13647 procedure(real(RKC)) :: getFunc
13648 type(ninf_type) , intent(in) :: lb
13649 type(pinf_type) , intent(in) :: ub
13650 real(RKC) , intent(in) :: abstol
13651 real(RKC) , intent(in) :: reltol
13652 type(GK41_type) , intent(in) :: qrule
13653 real(RKC) , intent(in) , contiguous :: help(:)
13654 real(RKC) , intent(out) :: integral, abserr
13655 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13656 integer(IK) , intent(out) , contiguous :: sindex(:)
13657 integer(IK) , intent(out) :: neval
13658 integer(IK) , intent(out) :: nint
13659 integer(IK) :: err
13660 end function
13661#endif
13662
13663#if RK2_ENABLED
13664 module function QAGP_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13666 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK2
13667#endif
13668 use pm_kind, only: RKC => RK2
13669 procedure(real(RKC)) :: getFunc
13670 type(ninf_type) , intent(in) :: lb
13671 type(pinf_type) , intent(in) :: ub
13672 real(RKC) , intent(in) :: abstol
13673 real(RKC) , intent(in) :: reltol
13674 type(GK41_type) , intent(in) :: qrule
13675 real(RKC) , intent(in) , contiguous :: help(:)
13676 real(RKC) , intent(out) :: integral, abserr
13677 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13678 integer(IK) , intent(out) , contiguous :: sindex(:)
13679 integer(IK) , intent(out) :: neval
13680 integer(IK) , intent(out) :: nint
13681 integer(IK) :: err
13682 end function
13683#endif
13684
13685#if RK1_ENABLED
13686 module function QAGP_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13688 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK41_II_RK1
13689#endif
13690 use pm_kind, only: RKC => RK1
13691 procedure(real(RKC)) :: getFunc
13692 type(ninf_type) , intent(in) :: lb
13693 type(pinf_type) , intent(in) :: ub
13694 real(RKC) , intent(in) :: abstol
13695 real(RKC) , intent(in) :: reltol
13696 type(GK41_type) , intent(in) :: qrule
13697 real(RKC) , intent(in) , contiguous :: help(:)
13698 real(RKC) , intent(out) :: integral, abserr
13699 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13700 integer(IK) , intent(out) , contiguous :: sindex(:)
13701 integer(IK) , intent(out) :: neval
13702 integer(IK) , intent(out) :: nint
13703 integer(IK) :: err
13704 end function
13705#endif
13706
13707 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13708
13709 end interface
13710
13711 ! QAGP_GK51
13712
13713 interface getQuadErr
13714
13715 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13716
13717#if RK5_ENABLED
13718 module function QAGP_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13720 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK5
13721#endif
13722 use pm_kind, only: RKC => RK5
13723 procedure(real(RKC)) :: getFunc
13724 real(RKC) , intent(in) :: lb
13725 real(RKC) , intent(in) :: ub
13726 real(RKC) , intent(in) :: abstol
13727 real(RKC) , intent(in) :: reltol
13728 type(GK51_type) , intent(in) :: qrule
13729 real(RKC) , intent(in) , contiguous :: help(:)
13730 real(RKC) , intent(out) :: integral, abserr
13731 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13732 integer(IK) , intent(out) , contiguous :: sindex(:)
13733 integer(IK) , intent(out) :: neval
13734 integer(IK) , intent(out) :: nint
13735 integer(IK) :: err
13736 end function
13737#endif
13738
13739#if RK4_ENABLED
13740 module function QAGP_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13741#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13742 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK4
13743#endif
13744 use pm_kind, only: RKC => RK4
13745 procedure(real(RKC)) :: getFunc
13746 real(RKC) , intent(in) :: lb
13747 real(RKC) , intent(in) :: ub
13748 real(RKC) , intent(in) :: abstol
13749 real(RKC) , intent(in) :: reltol
13750 type(GK51_type) , intent(in) :: qrule
13751 real(RKC) , intent(in) , contiguous :: help(:)
13752 real(RKC) , intent(out) :: integral, abserr
13753 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13754 integer(IK) , intent(out) , contiguous :: sindex(:)
13755 integer(IK) , intent(out) :: neval
13756 integer(IK) , intent(out) :: nint
13757 integer(IK) :: err
13758 end function
13759#endif
13760
13761#if RK3_ENABLED
13762 module function QAGP_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13763#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13764 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK3
13765#endif
13766 use pm_kind, only: RKC => RK3
13767 procedure(real(RKC)) :: getFunc
13768 real(RKC) , intent(in) :: lb
13769 real(RKC) , intent(in) :: ub
13770 real(RKC) , intent(in) :: abstol
13771 real(RKC) , intent(in) :: reltol
13772 type(GK51_type) , intent(in) :: qrule
13773 real(RKC) , intent(in) , contiguous :: help(:)
13774 real(RKC) , intent(out) :: integral, abserr
13775 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13776 integer(IK) , intent(out) , contiguous :: sindex(:)
13777 integer(IK) , intent(out) :: neval
13778 integer(IK) , intent(out) :: nint
13779 integer(IK) :: err
13780 end function
13781#endif
13782
13783#if RK2_ENABLED
13784 module function QAGP_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13786 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK2
13787#endif
13788 use pm_kind, only: RKC => RK2
13789 procedure(real(RKC)) :: getFunc
13790 real(RKC) , intent(in) :: lb
13791 real(RKC) , intent(in) :: ub
13792 real(RKC) , intent(in) :: abstol
13793 real(RKC) , intent(in) :: reltol
13794 type(GK51_type) , intent(in) :: qrule
13795 real(RKC) , intent(in) , contiguous :: help(:)
13796 real(RKC) , intent(out) :: integral, abserr
13797 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13798 integer(IK) , intent(out) , contiguous :: sindex(:)
13799 integer(IK) , intent(out) :: neval
13800 integer(IK) , intent(out) :: nint
13801 integer(IK) :: err
13802 end function
13803#endif
13804
13805#if RK1_ENABLED
13806 module function QAGP_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13808 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FF_RK1
13809#endif
13810 use pm_kind, only: RKC => RK1
13811 procedure(real(RKC)) :: getFunc
13812 real(RKC) , intent(in) :: lb
13813 real(RKC) , intent(in) :: ub
13814 real(RKC) , intent(in) :: abstol
13815 real(RKC) , intent(in) :: reltol
13816 type(GK51_type) , intent(in) :: qrule
13817 real(RKC) , intent(in) , contiguous :: help(:)
13818 real(RKC) , intent(out) :: integral, abserr
13819 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13820 integer(IK) , intent(out) , contiguous :: sindex(:)
13821 integer(IK) , intent(out) :: neval
13822 integer(IK) , intent(out) :: nint
13823 integer(IK) :: err
13824 end function
13825#endif
13826
13827 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13828
13829#if RK5_ENABLED
13830 module function QAGP_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13832 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK5
13833#endif
13834 use pm_kind, only: RKC => RK5
13835 procedure(real(RKC)) :: getFunc
13836 real(RKC) , intent(in) :: lb
13837 type(pinf_type) , intent(in) :: ub
13838 real(RKC) , intent(in) :: abstol
13839 real(RKC) , intent(in) :: reltol
13840 type(GK51_type) , intent(in) :: qrule
13841 real(RKC) , intent(in) , contiguous :: help(:)
13842 real(RKC) , intent(out) :: integral, abserr
13843 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13844 integer(IK) , intent(out) , contiguous :: sindex(:)
13845 integer(IK) , intent(out) :: neval
13846 integer(IK) , intent(out) :: nint
13847 integer(IK) :: err
13848 end function
13849#endif
13850
13851#if RK4_ENABLED
13852 module function QAGP_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13854 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK4
13855#endif
13856 use pm_kind, only: RKC => RK4
13857 procedure(real(RKC)) :: getFunc
13858 real(RKC) , intent(in) :: lb
13859 type(pinf_type) , intent(in) :: ub
13860 real(RKC) , intent(in) :: abstol
13861 real(RKC) , intent(in) :: reltol
13862 type(GK51_type) , intent(in) :: qrule
13863 real(RKC) , intent(in) , contiguous :: help(:)
13864 real(RKC) , intent(out) :: integral, abserr
13865 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13866 integer(IK) , intent(out) , contiguous :: sindex(:)
13867 integer(IK) , intent(out) :: neval
13868 integer(IK) , intent(out) :: nint
13869 integer(IK) :: err
13870 end function
13871#endif
13872
13873#if RK3_ENABLED
13874 module function QAGP_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13876 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK3
13877#endif
13878 use pm_kind, only: RKC => RK3
13879 procedure(real(RKC)) :: getFunc
13880 real(RKC) , intent(in) :: lb
13881 type(pinf_type) , intent(in) :: ub
13882 real(RKC) , intent(in) :: abstol
13883 real(RKC) , intent(in) :: reltol
13884 type(GK51_type) , intent(in) :: qrule
13885 real(RKC) , intent(in) , contiguous :: help(:)
13886 real(RKC) , intent(out) :: integral, abserr
13887 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13888 integer(IK) , intent(out) , contiguous :: sindex(:)
13889 integer(IK) , intent(out) :: neval
13890 integer(IK) , intent(out) :: nint
13891 integer(IK) :: err
13892 end function
13893#endif
13894
13895#if RK2_ENABLED
13896 module function QAGP_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13898 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK2
13899#endif
13900 use pm_kind, only: RKC => RK2
13901 procedure(real(RKC)) :: getFunc
13902 real(RKC) , intent(in) :: lb
13903 type(pinf_type) , intent(in) :: ub
13904 real(RKC) , intent(in) :: abstol
13905 real(RKC) , intent(in) :: reltol
13906 type(GK51_type) , intent(in) :: qrule
13907 real(RKC) , intent(in) , contiguous :: help(:)
13908 real(RKC) , intent(out) :: integral, abserr
13909 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13910 integer(IK) , intent(out) , contiguous :: sindex(:)
13911 integer(IK) , intent(out) :: neval
13912 integer(IK) , intent(out) :: nint
13913 integer(IK) :: err
13914 end function
13915#endif
13916
13917#if RK1_ENABLED
13918 module function QAGP_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13920 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_FI_RK1
13921#endif
13922 use pm_kind, only: RKC => RK1
13923 procedure(real(RKC)) :: getFunc
13924 real(RKC) , intent(in) :: lb
13925 type(pinf_type) , intent(in) :: ub
13926 real(RKC) , intent(in) :: abstol
13927 real(RKC) , intent(in) :: reltol
13928 type(GK51_type) , intent(in) :: qrule
13929 real(RKC) , intent(in) , contiguous :: help(:)
13930 real(RKC) , intent(out) :: integral, abserr
13931 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13932 integer(IK) , intent(out) , contiguous :: sindex(:)
13933 integer(IK) , intent(out) :: neval
13934 integer(IK) , intent(out) :: nint
13935 integer(IK) :: err
13936 end function
13937#endif
13938
13939 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
13940
13941#if RK5_ENABLED
13942 module function QAGP_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13944 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK5
13945#endif
13946 use pm_kind, only: RKC => RK5
13947 procedure(real(RKC)) :: getFunc
13948 type(ninf_type) , intent(in) :: lb
13949 real(RKC) , intent(in) :: ub
13950 real(RKC) , intent(in) :: abstol
13951 real(RKC) , intent(in) :: reltol
13952 type(GK51_type) , intent(in) :: qrule
13953 real(RKC) , intent(in) , contiguous :: help(:)
13954 real(RKC) , intent(out) :: integral, abserr
13955 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13956 integer(IK) , intent(out) , contiguous :: sindex(:)
13957 integer(IK) , intent(out) :: neval
13958 integer(IK) , intent(out) :: nint
13959 integer(IK) :: err
13960 end function
13961#endif
13962
13963#if RK4_ENABLED
13964 module function QAGP_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13965#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13966 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK4
13967#endif
13968 use pm_kind, only: RKC => RK4
13969 procedure(real(RKC)) :: getFunc
13970 type(ninf_type) , intent(in) :: lb
13971 real(RKC) , intent(in) :: ub
13972 real(RKC) , intent(in) :: abstol
13973 real(RKC) , intent(in) :: reltol
13974 type(GK51_type) , intent(in) :: qrule
13975 real(RKC) , intent(in) , contiguous :: help(:)
13976 real(RKC) , intent(out) :: integral, abserr
13977 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
13978 integer(IK) , intent(out) , contiguous :: sindex(:)
13979 integer(IK) , intent(out) :: neval
13980 integer(IK) , intent(out) :: nint
13981 integer(IK) :: err
13982 end function
13983#endif
13984
13985#if RK3_ENABLED
13986 module function QAGP_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
13987#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
13988 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK3
13989#endif
13990 use pm_kind, only: RKC => RK3
13991 procedure(real(RKC)) :: getFunc
13992 type(ninf_type) , intent(in) :: lb
13993 real(RKC) , intent(in) :: ub
13994 real(RKC) , intent(in) :: abstol
13995 real(RKC) , intent(in) :: reltol
13996 type(GK51_type) , intent(in) :: qrule
13997 real(RKC) , intent(in) , contiguous :: help(:)
13998 real(RKC) , intent(out) :: integral, abserr
13999 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14000 integer(IK) , intent(out) , contiguous :: sindex(:)
14001 integer(IK) , intent(out) :: neval
14002 integer(IK) , intent(out) :: nint
14003 integer(IK) :: err
14004 end function
14005#endif
14006
14007#if RK2_ENABLED
14008 module function QAGP_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14010 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK2
14011#endif
14012 use pm_kind, only: RKC => RK2
14013 procedure(real(RKC)) :: getFunc
14014 type(ninf_type) , intent(in) :: lb
14015 real(RKC) , intent(in) :: ub
14016 real(RKC) , intent(in) :: abstol
14017 real(RKC) , intent(in) :: reltol
14018 type(GK51_type) , intent(in) :: qrule
14019 real(RKC) , intent(in) , contiguous :: help(:)
14020 real(RKC) , intent(out) :: integral, abserr
14021 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14022 integer(IK) , intent(out) , contiguous :: sindex(:)
14023 integer(IK) , intent(out) :: neval
14024 integer(IK) , intent(out) :: nint
14025 integer(IK) :: err
14026 end function
14027#endif
14028
14029#if RK1_ENABLED
14030 module function QAGP_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14032 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_IF_RK1
14033#endif
14034 use pm_kind, only: RKC => RK1
14035 procedure(real(RKC)) :: getFunc
14036 type(ninf_type) , intent(in) :: lb
14037 real(RKC) , intent(in) :: ub
14038 real(RKC) , intent(in) :: abstol
14039 real(RKC) , intent(in) :: reltol
14040 type(GK51_type) , intent(in) :: qrule
14041 real(RKC) , intent(in) , contiguous :: help(:)
14042 real(RKC) , intent(out) :: integral, abserr
14043 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14044 integer(IK) , intent(out) , contiguous :: sindex(:)
14045 integer(IK) , intent(out) :: neval
14046 integer(IK) , intent(out) :: nint
14047 integer(IK) :: err
14048 end function
14049#endif
14050
14051 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14052
14053#if RK5_ENABLED
14054 module function QAGP_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14056 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK5
14057#endif
14058 use pm_kind, only: RKC => RK5
14059 procedure(real(RKC)) :: getFunc
14060 type(ninf_type) , intent(in) :: lb
14061 type(pinf_type) , intent(in) :: ub
14062 real(RKC) , intent(in) :: abstol
14063 real(RKC) , intent(in) :: reltol
14064 type(GK51_type) , intent(in) :: qrule
14065 real(RKC) , intent(in) , contiguous :: help(:)
14066 real(RKC) , intent(out) :: integral, abserr
14067 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14068 integer(IK) , intent(out) , contiguous :: sindex(:)
14069 integer(IK) , intent(out) :: neval
14070 integer(IK) , intent(out) :: nint
14071 integer(IK) :: err
14072 end function
14073#endif
14074
14075#if RK4_ENABLED
14076 module function QAGP_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14077#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14078 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK4
14079#endif
14080 use pm_kind, only: RKC => RK4
14081 procedure(real(RKC)) :: getFunc
14082 type(ninf_type) , intent(in) :: lb
14083 type(pinf_type) , intent(in) :: ub
14084 real(RKC) , intent(in) :: abstol
14085 real(RKC) , intent(in) :: reltol
14086 type(GK51_type) , intent(in) :: qrule
14087 real(RKC) , intent(in) , contiguous :: help(:)
14088 real(RKC) , intent(out) :: integral, abserr
14089 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14090 integer(IK) , intent(out) , contiguous :: sindex(:)
14091 integer(IK) , intent(out) :: neval
14092 integer(IK) , intent(out) :: nint
14093 integer(IK) :: err
14094 end function
14095#endif
14096
14097#if RK3_ENABLED
14098 module function QAGP_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14100 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK3
14101#endif
14102 use pm_kind, only: RKC => RK3
14103 procedure(real(RKC)) :: getFunc
14104 type(ninf_type) , intent(in) :: lb
14105 type(pinf_type) , intent(in) :: ub
14106 real(RKC) , intent(in) :: abstol
14107 real(RKC) , intent(in) :: reltol
14108 type(GK51_type) , intent(in) :: qrule
14109 real(RKC) , intent(in) , contiguous :: help(:)
14110 real(RKC) , intent(out) :: integral, abserr
14111 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14112 integer(IK) , intent(out) , contiguous :: sindex(:)
14113 integer(IK) , intent(out) :: neval
14114 integer(IK) , intent(out) :: nint
14115 integer(IK) :: err
14116 end function
14117#endif
14118
14119#if RK2_ENABLED
14120 module function QAGP_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14122 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK2
14123#endif
14124 use pm_kind, only: RKC => RK2
14125 procedure(real(RKC)) :: getFunc
14126 type(ninf_type) , intent(in) :: lb
14127 type(pinf_type) , intent(in) :: ub
14128 real(RKC) , intent(in) :: abstol
14129 real(RKC) , intent(in) :: reltol
14130 type(GK51_type) , intent(in) :: qrule
14131 real(RKC) , intent(in) , contiguous :: help(:)
14132 real(RKC) , intent(out) :: integral, abserr
14133 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14134 integer(IK) , intent(out) , contiguous :: sindex(:)
14135 integer(IK) , intent(out) :: neval
14136 integer(IK) , intent(out) :: nint
14137 integer(IK) :: err
14138 end function
14139#endif
14140
14141#if RK1_ENABLED
14142 module function QAGP_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14144 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK51_II_RK1
14145#endif
14146 use pm_kind, only: RKC => RK1
14147 procedure(real(RKC)) :: getFunc
14148 type(ninf_type) , intent(in) :: lb
14149 type(pinf_type) , intent(in) :: ub
14150 real(RKC) , intent(in) :: abstol
14151 real(RKC) , intent(in) :: reltol
14152 type(GK51_type) , intent(in) :: qrule
14153 real(RKC) , intent(in) , contiguous :: help(:)
14154 real(RKC) , intent(out) :: integral, abserr
14155 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14156 integer(IK) , intent(out) , contiguous :: sindex(:)
14157 integer(IK) , intent(out) :: neval
14158 integer(IK) , intent(out) :: nint
14159 integer(IK) :: err
14160 end function
14161#endif
14162
14163 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14164
14165 end interface
14166
14167 ! QAGP_GK61
14168
14169 interface getQuadErr
14170
14171 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14172
14173#if RK5_ENABLED
14174 module function QAGP_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14175#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14176 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK5
14177#endif
14178 use pm_kind, only: RKC => RK5
14179 procedure(real(RKC)) :: getFunc
14180 real(RKC) , intent(in) :: lb
14181 real(RKC) , intent(in) :: ub
14182 real(RKC) , intent(in) :: abstol
14183 real(RKC) , intent(in) :: reltol
14184 type(GK61_type) , intent(in) :: qrule
14185 real(RKC) , intent(in) , contiguous :: help(:)
14186 real(RKC) , intent(out) :: integral, abserr
14187 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14188 integer(IK) , intent(out) , contiguous :: sindex(:)
14189 integer(IK) , intent(out) :: neval
14190 integer(IK) , intent(out) :: nint
14191 integer(IK) :: err
14192 end function
14193#endif
14194
14195#if RK4_ENABLED
14196 module function QAGP_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14198 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK4
14199#endif
14200 use pm_kind, only: RKC => RK4
14201 procedure(real(RKC)) :: getFunc
14202 real(RKC) , intent(in) :: lb
14203 real(RKC) , intent(in) :: ub
14204 real(RKC) , intent(in) :: abstol
14205 real(RKC) , intent(in) :: reltol
14206 type(GK61_type) , intent(in) :: qrule
14207 real(RKC) , intent(in) , contiguous :: help(:)
14208 real(RKC) , intent(out) :: integral, abserr
14209 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14210 integer(IK) , intent(out) , contiguous :: sindex(:)
14211 integer(IK) , intent(out) :: neval
14212 integer(IK) , intent(out) :: nint
14213 integer(IK) :: err
14214 end function
14215#endif
14216
14217#if RK3_ENABLED
14218 module function QAGP_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14220 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK3
14221#endif
14222 use pm_kind, only: RKC => RK3
14223 procedure(real(RKC)) :: getFunc
14224 real(RKC) , intent(in) :: lb
14225 real(RKC) , intent(in) :: ub
14226 real(RKC) , intent(in) :: abstol
14227 real(RKC) , intent(in) :: reltol
14228 type(GK61_type) , intent(in) :: qrule
14229 real(RKC) , intent(in) , contiguous :: help(:)
14230 real(RKC) , intent(out) :: integral, abserr
14231 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14232 integer(IK) , intent(out) , contiguous :: sindex(:)
14233 integer(IK) , intent(out) :: neval
14234 integer(IK) , intent(out) :: nint
14235 integer(IK) :: err
14236 end function
14237#endif
14238
14239#if RK2_ENABLED
14240 module function QAGP_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14242 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK2
14243#endif
14244 use pm_kind, only: RKC => RK2
14245 procedure(real(RKC)) :: getFunc
14246 real(RKC) , intent(in) :: lb
14247 real(RKC) , intent(in) :: ub
14248 real(RKC) , intent(in) :: abstol
14249 real(RKC) , intent(in) :: reltol
14250 type(GK61_type) , intent(in) :: qrule
14251 real(RKC) , intent(in) , contiguous :: help(:)
14252 real(RKC) , intent(out) :: integral, abserr
14253 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14254 integer(IK) , intent(out) , contiguous :: sindex(:)
14255 integer(IK) , intent(out) :: neval
14256 integer(IK) , intent(out) :: nint
14257 integer(IK) :: err
14258 end function
14259#endif
14260
14261#if RK1_ENABLED
14262 module function QAGP_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14264 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FF_RK1
14265#endif
14266 use pm_kind, only: RKC => RK1
14267 procedure(real(RKC)) :: getFunc
14268 real(RKC) , intent(in) :: lb
14269 real(RKC) , intent(in) :: ub
14270 real(RKC) , intent(in) :: abstol
14271 real(RKC) , intent(in) :: reltol
14272 type(GK61_type) , intent(in) :: qrule
14273 real(RKC) , intent(in) , contiguous :: help(:)
14274 real(RKC) , intent(out) :: integral, abserr
14275 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14276 integer(IK) , intent(out) , contiguous :: sindex(:)
14277 integer(IK) , intent(out) :: neval
14278 integer(IK) , intent(out) :: nint
14279 integer(IK) :: err
14280 end function
14281#endif
14282
14283 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14284
14285#if RK5_ENABLED
14286 module function QAGP_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14287#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14288 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK5
14289#endif
14290 use pm_kind, only: RKC => RK5
14291 procedure(real(RKC)) :: getFunc
14292 real(RKC) , intent(in) :: lb
14293 type(pinf_type) , intent(in) :: ub
14294 real(RKC) , intent(in) :: abstol
14295 real(RKC) , intent(in) :: reltol
14296 type(GK61_type) , intent(in) :: qrule
14297 real(RKC) , intent(in) , contiguous :: help(:)
14298 real(RKC) , intent(out) :: integral, abserr
14299 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14300 integer(IK) , intent(out) , contiguous :: sindex(:)
14301 integer(IK) , intent(out) :: neval
14302 integer(IK) , intent(out) :: nint
14303 integer(IK) :: err
14304 end function
14305#endif
14306
14307#if RK4_ENABLED
14308 module function QAGP_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14309#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14310 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK4
14311#endif
14312 use pm_kind, only: RKC => RK4
14313 procedure(real(RKC)) :: getFunc
14314 real(RKC) , intent(in) :: lb
14315 type(pinf_type) , intent(in) :: ub
14316 real(RKC) , intent(in) :: abstol
14317 real(RKC) , intent(in) :: reltol
14318 type(GK61_type) , intent(in) :: qrule
14319 real(RKC) , intent(in) , contiguous :: help(:)
14320 real(RKC) , intent(out) :: integral, abserr
14321 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14322 integer(IK) , intent(out) , contiguous :: sindex(:)
14323 integer(IK) , intent(out) :: neval
14324 integer(IK) , intent(out) :: nint
14325 integer(IK) :: err
14326 end function
14327#endif
14328
14329#if RK3_ENABLED
14330 module function QAGP_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14331#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14332 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK3
14333#endif
14334 use pm_kind, only: RKC => RK3
14335 procedure(real(RKC)) :: getFunc
14336 real(RKC) , intent(in) :: lb
14337 type(pinf_type) , intent(in) :: ub
14338 real(RKC) , intent(in) :: abstol
14339 real(RKC) , intent(in) :: reltol
14340 type(GK61_type) , intent(in) :: qrule
14341 real(RKC) , intent(in) , contiguous :: help(:)
14342 real(RKC) , intent(out) :: integral, abserr
14343 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14344 integer(IK) , intent(out) , contiguous :: sindex(:)
14345 integer(IK) , intent(out) :: neval
14346 integer(IK) , intent(out) :: nint
14347 integer(IK) :: err
14348 end function
14349#endif
14350
14351#if RK2_ENABLED
14352 module function QAGP_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14354 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK2
14355#endif
14356 use pm_kind, only: RKC => RK2
14357 procedure(real(RKC)) :: getFunc
14358 real(RKC) , intent(in) :: lb
14359 type(pinf_type) , intent(in) :: ub
14360 real(RKC) , intent(in) :: abstol
14361 real(RKC) , intent(in) :: reltol
14362 type(GK61_type) , intent(in) :: qrule
14363 real(RKC) , intent(in) , contiguous :: help(:)
14364 real(RKC) , intent(out) :: integral, abserr
14365 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14366 integer(IK) , intent(out) , contiguous :: sindex(:)
14367 integer(IK) , intent(out) :: neval
14368 integer(IK) , intent(out) :: nint
14369 integer(IK) :: err
14370 end function
14371#endif
14372
14373#if RK1_ENABLED
14374 module function QAGP_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14375#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14376 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_FI_RK1
14377#endif
14378 use pm_kind, only: RKC => RK1
14379 procedure(real(RKC)) :: getFunc
14380 real(RKC) , intent(in) :: lb
14381 type(pinf_type) , intent(in) :: ub
14382 real(RKC) , intent(in) :: abstol
14383 real(RKC) , intent(in) :: reltol
14384 type(GK61_type) , intent(in) :: qrule
14385 real(RKC) , intent(in) , contiguous :: help(:)
14386 real(RKC) , intent(out) :: integral, abserr
14387 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14388 integer(IK) , intent(out) , contiguous :: sindex(:)
14389 integer(IK) , intent(out) :: neval
14390 integer(IK) , intent(out) :: nint
14391 integer(IK) :: err
14392 end function
14393#endif
14394
14395 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14396
14397#if RK5_ENABLED
14398 module function QAGP_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14400 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK5
14401#endif
14402 use pm_kind, only: RKC => RK5
14403 procedure(real(RKC)) :: getFunc
14404 type(ninf_type) , intent(in) :: lb
14405 real(RKC) , intent(in) :: ub
14406 real(RKC) , intent(in) :: abstol
14407 real(RKC) , intent(in) :: reltol
14408 type(GK61_type) , intent(in) :: qrule
14409 real(RKC) , intent(in) , contiguous :: help(:)
14410 real(RKC) , intent(out) :: integral, abserr
14411 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14412 integer(IK) , intent(out) , contiguous :: sindex(:)
14413 integer(IK) , intent(out) :: neval
14414 integer(IK) , intent(out) :: nint
14415 integer(IK) :: err
14416 end function
14417#endif
14418
14419#if RK4_ENABLED
14420 module function QAGP_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14422 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK4
14423#endif
14424 use pm_kind, only: RKC => RK4
14425 procedure(real(RKC)) :: getFunc
14426 type(ninf_type) , intent(in) :: lb
14427 real(RKC) , intent(in) :: ub
14428 real(RKC) , intent(in) :: abstol
14429 real(RKC) , intent(in) :: reltol
14430 type(GK61_type) , intent(in) :: qrule
14431 real(RKC) , intent(in) , contiguous :: help(:)
14432 real(RKC) , intent(out) :: integral, abserr
14433 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14434 integer(IK) , intent(out) , contiguous :: sindex(:)
14435 integer(IK) , intent(out) :: neval
14436 integer(IK) , intent(out) :: nint
14437 integer(IK) :: err
14438 end function
14439#endif
14440
14441#if RK3_ENABLED
14442 module function QAGP_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14444 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK3
14445#endif
14446 use pm_kind, only: RKC => RK3
14447 procedure(real(RKC)) :: getFunc
14448 type(ninf_type) , intent(in) :: lb
14449 real(RKC) , intent(in) :: ub
14450 real(RKC) , intent(in) :: abstol
14451 real(RKC) , intent(in) :: reltol
14452 type(GK61_type) , intent(in) :: qrule
14453 real(RKC) , intent(in) , contiguous :: help(:)
14454 real(RKC) , intent(out) :: integral, abserr
14455 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14456 integer(IK) , intent(out) , contiguous :: sindex(:)
14457 integer(IK) , intent(out) :: neval
14458 integer(IK) , intent(out) :: nint
14459 integer(IK) :: err
14460 end function
14461#endif
14462
14463#if RK2_ENABLED
14464 module function QAGP_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14466 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK2
14467#endif
14468 use pm_kind, only: RKC => RK2
14469 procedure(real(RKC)) :: getFunc
14470 type(ninf_type) , intent(in) :: lb
14471 real(RKC) , intent(in) :: ub
14472 real(RKC) , intent(in) :: abstol
14473 real(RKC) , intent(in) :: reltol
14474 type(GK61_type) , intent(in) :: qrule
14475 real(RKC) , intent(in) , contiguous :: help(:)
14476 real(RKC) , intent(out) :: integral, abserr
14477 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14478 integer(IK) , intent(out) , contiguous :: sindex(:)
14479 integer(IK) , intent(out) :: neval
14480 integer(IK) , intent(out) :: nint
14481 integer(IK) :: err
14482 end function
14483#endif
14484
14485#if RK1_ENABLED
14486 module function QAGP_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14488 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_IF_RK1
14489#endif
14490 use pm_kind, only: RKC => RK1
14491 procedure(real(RKC)) :: getFunc
14492 type(ninf_type) , intent(in) :: lb
14493 real(RKC) , intent(in) :: ub
14494 real(RKC) , intent(in) :: abstol
14495 real(RKC) , intent(in) :: reltol
14496 type(GK61_type) , intent(in) :: qrule
14497 real(RKC) , intent(in) , contiguous :: help(:)
14498 real(RKC) , intent(out) :: integral, abserr
14499 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14500 integer(IK) , intent(out) , contiguous :: sindex(:)
14501 integer(IK) , intent(out) :: neval
14502 integer(IK) , intent(out) :: nint
14503 integer(IK) :: err
14504 end function
14505#endif
14506
14507 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14508
14509#if RK5_ENABLED
14510 module function QAGP_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14512 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK5
14513#endif
14514 use pm_kind, only: RKC => RK5
14515 procedure(real(RKC)) :: getFunc
14516 type(ninf_type) , intent(in) :: lb
14517 type(pinf_type) , intent(in) :: ub
14518 real(RKC) , intent(in) :: abstol
14519 real(RKC) , intent(in) :: reltol
14520 type(GK61_type) , intent(in) :: qrule
14521 real(RKC) , intent(in) , contiguous :: help(:)
14522 real(RKC) , intent(out) :: integral, abserr
14523 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14524 integer(IK) , intent(out) , contiguous :: sindex(:)
14525 integer(IK) , intent(out) :: neval
14526 integer(IK) , intent(out) :: nint
14527 integer(IK) :: err
14528 end function
14529#endif
14530
14531#if RK4_ENABLED
14532 module function QAGP_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14534 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK4
14535#endif
14536 use pm_kind, only: RKC => RK4
14537 procedure(real(RKC)) :: getFunc
14538 type(ninf_type) , intent(in) :: lb
14539 type(pinf_type) , intent(in) :: ub
14540 real(RKC) , intent(in) :: abstol
14541 real(RKC) , intent(in) :: reltol
14542 type(GK61_type) , intent(in) :: qrule
14543 real(RKC) , intent(in) , contiguous :: help(:)
14544 real(RKC) , intent(out) :: integral, abserr
14545 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14546 integer(IK) , intent(out) , contiguous :: sindex(:)
14547 integer(IK) , intent(out) :: neval
14548 integer(IK) , intent(out) :: nint
14549 integer(IK) :: err
14550 end function
14551#endif
14552
14553#if RK3_ENABLED
14554 module function QAGP_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14556 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK3
14557#endif
14558 use pm_kind, only: RKC => RK3
14559 procedure(real(RKC)) :: getFunc
14560 type(ninf_type) , intent(in) :: lb
14561 type(pinf_type) , intent(in) :: ub
14562 real(RKC) , intent(in) :: abstol
14563 real(RKC) , intent(in) :: reltol
14564 type(GK61_type) , intent(in) :: qrule
14565 real(RKC) , intent(in) , contiguous :: help(:)
14566 real(RKC) , intent(out) :: integral, abserr
14567 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14568 integer(IK) , intent(out) , contiguous :: sindex(:)
14569 integer(IK) , intent(out) :: neval
14570 integer(IK) , intent(out) :: nint
14571 integer(IK) :: err
14572 end function
14573#endif
14574
14575#if RK2_ENABLED
14576 module function QAGP_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14578 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK2
14579#endif
14580 use pm_kind, only: RKC => RK2
14581 procedure(real(RKC)) :: getFunc
14582 type(ninf_type) , intent(in) :: lb
14583 type(pinf_type) , intent(in) :: ub
14584 real(RKC) , intent(in) :: abstol
14585 real(RKC) , intent(in) :: reltol
14586 type(GK61_type) , intent(in) :: qrule
14587 real(RKC) , intent(in) , contiguous :: help(:)
14588 real(RKC) , intent(out) :: integral, abserr
14589 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14590 integer(IK) , intent(out) , contiguous :: sindex(:)
14591 integer(IK) , intent(out) :: neval
14592 integer(IK) , intent(out) :: nint
14593 integer(IK) :: err
14594 end function
14595#endif
14596
14597#if RK1_ENABLED
14598 module function QAGP_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14600 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GK61_II_RK1
14601#endif
14602 use pm_kind, only: RKC => RK1
14603 procedure(real(RKC)) :: getFunc
14604 type(ninf_type) , intent(in) :: lb
14605 type(pinf_type) , intent(in) :: ub
14606 real(RKC) , intent(in) :: abstol
14607 real(RKC) , intent(in) :: reltol
14608 type(GK61_type) , intent(in) :: qrule
14609 real(RKC) , intent(in) , contiguous :: help(:)
14610 real(RKC) , intent(out) :: integral, abserr
14611 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14612 integer(IK) , intent(out) , contiguous :: sindex(:)
14613 integer(IK) , intent(out) :: neval
14614 integer(IK) , intent(out) :: nint
14615 integer(IK) :: err
14616 end function
14617#endif
14618
14619 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14620
14621 end interface
14622
14623 ! QAGP_GKXX
14624
14625 interface getQuadErr
14626
14627 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14628
14629#if RK5_ENABLED
14630 module function QAGP_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14632 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK5
14633#endif
14634 use pm_kind, only: RKC => RK5
14635 procedure(real(RKC)) :: getFunc
14636 real(RKC) , intent(in) :: lb
14637 real(RKC) , intent(in) :: ub
14638 real(RKC) , intent(in) :: abstol
14639 real(RKC) , intent(in) :: reltol
14640 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14641 real(RKC) , intent(in) , contiguous :: help(:)
14642 real(RKC) , intent(out) :: integral, abserr
14643 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14644 integer(IK) , intent(out) , contiguous :: sindex(:)
14645 integer(IK) , intent(out) :: neval
14646 integer(IK) , intent(out) :: nint
14647 integer(IK) :: err
14648 end function
14649#endif
14650
14651#if RK4_ENABLED
14652 module function QAGP_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14654 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK4
14655#endif
14656 use pm_kind, only: RKC => RK4
14657 procedure(real(RKC)) :: getFunc
14658 real(RKC) , intent(in) :: lb
14659 real(RKC) , intent(in) :: ub
14660 real(RKC) , intent(in) :: abstol
14661 real(RKC) , intent(in) :: reltol
14662 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14663 real(RKC) , intent(in) , contiguous :: help(:)
14664 real(RKC) , intent(out) :: integral, abserr
14665 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14666 integer(IK) , intent(out) , contiguous :: sindex(:)
14667 integer(IK) , intent(out) :: neval
14668 integer(IK) , intent(out) :: nint
14669 integer(IK) :: err
14670 end function
14671#endif
14672
14673#if RK3_ENABLED
14674 module function QAGP_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14675#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14676 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK3
14677#endif
14678 use pm_kind, only: RKC => RK3
14679 procedure(real(RKC)) :: getFunc
14680 real(RKC) , intent(in) :: lb
14681 real(RKC) , intent(in) :: ub
14682 real(RKC) , intent(in) :: abstol
14683 real(RKC) , intent(in) :: reltol
14684 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14685 real(RKC) , intent(in) , contiguous :: help(:)
14686 real(RKC) , intent(out) :: integral, abserr
14687 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14688 integer(IK) , intent(out) , contiguous :: sindex(:)
14689 integer(IK) , intent(out) :: neval
14690 integer(IK) , intent(out) :: nint
14691 integer(IK) :: err
14692 end function
14693#endif
14694
14695#if RK2_ENABLED
14696 module function QAGP_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14697#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14698 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK2
14699#endif
14700 use pm_kind, only: RKC => RK2
14701 procedure(real(RKC)) :: getFunc
14702 real(RKC) , intent(in) :: lb
14703 real(RKC) , intent(in) :: ub
14704 real(RKC) , intent(in) :: abstol
14705 real(RKC) , intent(in) :: reltol
14706 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14707 real(RKC) , intent(in) , contiguous :: help(:)
14708 real(RKC) , intent(out) :: integral, abserr
14709 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14710 integer(IK) , intent(out) , contiguous :: sindex(:)
14711 integer(IK) , intent(out) :: neval
14712 integer(IK) , intent(out) :: nint
14713 integer(IK) :: err
14714 end function
14715#endif
14716
14717#if RK1_ENABLED
14718 module function QAGP_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14720 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FF_RK1
14721#endif
14722 use pm_kind, only: RKC => RK1
14723 procedure(real(RKC)) :: getFunc
14724 real(RKC) , intent(in) :: lb
14725 real(RKC) , intent(in) :: ub
14726 real(RKC) , intent(in) :: abstol
14727 real(RKC) , intent(in) :: reltol
14728 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14729 real(RKC) , intent(in) , contiguous :: help(:)
14730 real(RKC) , intent(out) :: integral, abserr
14731 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14732 integer(IK) , intent(out) , contiguous :: sindex(:)
14733 integer(IK) , intent(out) :: neval
14734 integer(IK) , intent(out) :: nint
14735 integer(IK) :: err
14736 end function
14737#endif
14738
14739 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14740
14741#if RK5_ENABLED
14742 module function QAGP_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14743#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14744 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK5
14745#endif
14746 use pm_kind, only: RKC => RK5
14747 procedure(real(RKC)) :: getFunc
14748 real(RKC) , intent(in) :: lb
14749 type(pinf_type) , intent(in) :: ub
14750 real(RKC) , intent(in) :: abstol
14751 real(RKC) , intent(in) :: reltol
14752 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14753 real(RKC) , intent(in) , contiguous :: help(:)
14754 real(RKC) , intent(out) :: integral, abserr
14755 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14756 integer(IK) , intent(out) , contiguous :: sindex(:)
14757 integer(IK) , intent(out) :: neval
14758 integer(IK) , intent(out) :: nint
14759 integer(IK) :: err
14760 end function
14761#endif
14762
14763#if RK4_ENABLED
14764 module function QAGP_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14765#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14766 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK4
14767#endif
14768 use pm_kind, only: RKC => RK4
14769 procedure(real(RKC)) :: getFunc
14770 real(RKC) , intent(in) :: lb
14771 type(pinf_type) , intent(in) :: ub
14772 real(RKC) , intent(in) :: abstol
14773 real(RKC) , intent(in) :: reltol
14774 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14775 real(RKC) , intent(in) , contiguous :: help(:)
14776 real(RKC) , intent(out) :: integral, abserr
14777 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14778 integer(IK) , intent(out) , contiguous :: sindex(:)
14779 integer(IK) , intent(out) :: neval
14780 integer(IK) , intent(out) :: nint
14781 integer(IK) :: err
14782 end function
14783#endif
14784
14785#if RK3_ENABLED
14786 module function QAGP_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14788 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK3
14789#endif
14790 use pm_kind, only: RKC => RK3
14791 procedure(real(RKC)) :: getFunc
14792 real(RKC) , intent(in) :: lb
14793 type(pinf_type) , intent(in) :: ub
14794 real(RKC) , intent(in) :: abstol
14795 real(RKC) , intent(in) :: reltol
14796 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14797 real(RKC) , intent(in) , contiguous :: help(:)
14798 real(RKC) , intent(out) :: integral, abserr
14799 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14800 integer(IK) , intent(out) , contiguous :: sindex(:)
14801 integer(IK) , intent(out) :: neval
14802 integer(IK) , intent(out) :: nint
14803 integer(IK) :: err
14804 end function
14805#endif
14806
14807#if RK2_ENABLED
14808 module function QAGP_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14809#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14810 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK2
14811#endif
14812 use pm_kind, only: RKC => RK2
14813 procedure(real(RKC)) :: getFunc
14814 real(RKC) , intent(in) :: lb
14815 type(pinf_type) , intent(in) :: ub
14816 real(RKC) , intent(in) :: abstol
14817 real(RKC) , intent(in) :: reltol
14818 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14819 real(RKC) , intent(in) , contiguous :: help(:)
14820 real(RKC) , intent(out) :: integral, abserr
14821 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14822 integer(IK) , intent(out) , contiguous :: sindex(:)
14823 integer(IK) , intent(out) :: neval
14824 integer(IK) , intent(out) :: nint
14825 integer(IK) :: err
14826 end function
14827#endif
14828
14829#if RK1_ENABLED
14830 module function QAGP_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14832 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_FI_RK1
14833#endif
14834 use pm_kind, only: RKC => RK1
14835 procedure(real(RKC)) :: getFunc
14836 real(RKC) , intent(in) :: lb
14837 type(pinf_type) , intent(in) :: ub
14838 real(RKC) , intent(in) :: abstol
14839 real(RKC) , intent(in) :: reltol
14840 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14841 real(RKC) , intent(in) , contiguous :: help(:)
14842 real(RKC) , intent(out) :: integral, abserr
14843 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14844 integer(IK) , intent(out) , contiguous :: sindex(:)
14845 integer(IK) , intent(out) :: neval
14846 integer(IK) , intent(out) :: nint
14847 integer(IK) :: err
14848 end function
14849#endif
14850
14851 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14852
14853#if RK5_ENABLED
14854 module function QAGP_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14856 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK5
14857#endif
14858 use pm_kind, only: RKC => RK5
14859 procedure(real(RKC)) :: getFunc
14860 type(ninf_type) , intent(in) :: lb
14861 real(RKC) , intent(in) :: ub
14862 real(RKC) , intent(in) :: abstol
14863 real(RKC) , intent(in) :: reltol
14864 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14865 real(RKC) , intent(in) , contiguous :: help(:)
14866 real(RKC) , intent(out) :: integral, abserr
14867 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14868 integer(IK) , intent(out) , contiguous :: sindex(:)
14869 integer(IK) , intent(out) :: neval
14870 integer(IK) , intent(out) :: nint
14871 integer(IK) :: err
14872 end function
14873#endif
14874
14875#if RK4_ENABLED
14876 module function QAGP_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14877#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14878 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK4
14879#endif
14880 use pm_kind, only: RKC => RK4
14881 procedure(real(RKC)) :: getFunc
14882 type(ninf_type) , intent(in) :: lb
14883 real(RKC) , intent(in) :: ub
14884 real(RKC) , intent(in) :: abstol
14885 real(RKC) , intent(in) :: reltol
14886 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14887 real(RKC) , intent(in) , contiguous :: help(:)
14888 real(RKC) , intent(out) :: integral, abserr
14889 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14890 integer(IK) , intent(out) , contiguous :: sindex(:)
14891 integer(IK) , intent(out) :: neval
14892 integer(IK) , intent(out) :: nint
14893 integer(IK) :: err
14894 end function
14895#endif
14896
14897#if RK3_ENABLED
14898 module function QAGP_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14899#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14900 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK3
14901#endif
14902 use pm_kind, only: RKC => RK3
14903 procedure(real(RKC)) :: getFunc
14904 type(ninf_type) , intent(in) :: lb
14905 real(RKC) , intent(in) :: ub
14906 real(RKC) , intent(in) :: abstol
14907 real(RKC) , intent(in) :: reltol
14908 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14909 real(RKC) , intent(in) , contiguous :: help(:)
14910 real(RKC) , intent(out) :: integral, abserr
14911 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14912 integer(IK) , intent(out) , contiguous :: sindex(:)
14913 integer(IK) , intent(out) :: neval
14914 integer(IK) , intent(out) :: nint
14915 integer(IK) :: err
14916 end function
14917#endif
14918
14919#if RK2_ENABLED
14920 module function QAGP_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14921#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14922 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK2
14923#endif
14924 use pm_kind, only: RKC => RK2
14925 procedure(real(RKC)) :: getFunc
14926 type(ninf_type) , intent(in) :: lb
14927 real(RKC) , intent(in) :: ub
14928 real(RKC) , intent(in) :: abstol
14929 real(RKC) , intent(in) :: reltol
14930 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14931 real(RKC) , intent(in) , contiguous :: help(:)
14932 real(RKC) , intent(out) :: integral, abserr
14933 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14934 integer(IK) , intent(out) , contiguous :: sindex(:)
14935 integer(IK) , intent(out) :: neval
14936 integer(IK) , intent(out) :: nint
14937 integer(IK) :: err
14938 end function
14939#endif
14940
14941#if RK1_ENABLED
14942 module function QAGP_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14943#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14944 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_IF_RK1
14945#endif
14946 use pm_kind, only: RKC => RK1
14947 procedure(real(RKC)) :: getFunc
14948 type(ninf_type) , intent(in) :: lb
14949 real(RKC) , intent(in) :: ub
14950 real(RKC) , intent(in) :: abstol
14951 real(RKC) , intent(in) :: reltol
14952 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14953 real(RKC) , intent(in) , contiguous :: help(:)
14954 real(RKC) , intent(out) :: integral, abserr
14955 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14956 integer(IK) , intent(out) , contiguous :: sindex(:)
14957 integer(IK) , intent(out) :: neval
14958 integer(IK) , intent(out) :: nint
14959 integer(IK) :: err
14960 end function
14961#endif
14962
14963 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
14964
14965#if RK5_ENABLED
14966 module function QAGP_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14968 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK5
14969#endif
14970 use pm_kind, only: RKC => RK5
14971 procedure(real(RKC)) :: getFunc
14972 type(ninf_type) , intent(in) :: lb
14973 type(pinf_type) , intent(in) :: ub
14974 real(RKC) , intent(in) :: abstol
14975 real(RKC) , intent(in) :: reltol
14976 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14977 real(RKC) , intent(in) , contiguous :: help(:)
14978 real(RKC) , intent(out) :: integral, abserr
14979 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
14980 integer(IK) , intent(out) , contiguous :: sindex(:)
14981 integer(IK) , intent(out) :: neval
14982 integer(IK) , intent(out) :: nint
14983 integer(IK) :: err
14984 end function
14985#endif
14986
14987#if RK4_ENABLED
14988 module function QAGP_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
14989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
14990 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK4
14991#endif
14992 use pm_kind, only: RKC => RK4
14993 procedure(real(RKC)) :: getFunc
14994 type(ninf_type) , intent(in) :: lb
14995 type(pinf_type) , intent(in) :: ub
14996 real(RKC) , intent(in) :: abstol
14997 real(RKC) , intent(in) :: reltol
14998 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
14999 real(RKC) , intent(in) , contiguous :: help(:)
15000 real(RKC) , intent(out) :: integral, abserr
15001 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15002 integer(IK) , intent(out) , contiguous :: sindex(:)
15003 integer(IK) , intent(out) :: neval
15004 integer(IK) , intent(out) :: nint
15005 integer(IK) :: err
15006 end function
15007#endif
15008
15009#if RK3_ENABLED
15010 module function QAGP_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15011#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15012 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK3
15013#endif
15014 use pm_kind, only: RKC => RK3
15015 procedure(real(RKC)) :: getFunc
15016 type(ninf_type) , intent(in) :: lb
15017 type(pinf_type) , intent(in) :: ub
15018 real(RKC) , intent(in) :: abstol
15019 real(RKC) , intent(in) :: reltol
15020 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15021 real(RKC) , intent(in) , contiguous :: help(:)
15022 real(RKC) , intent(out) :: integral, abserr
15023 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15024 integer(IK) , intent(out) , contiguous :: sindex(:)
15025 integer(IK) , intent(out) :: neval
15026 integer(IK) , intent(out) :: nint
15027 integer(IK) :: err
15028 end function
15029#endif
15030
15031#if RK2_ENABLED
15032 module function QAGP_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15034 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK2
15035#endif
15036 use pm_kind, only: RKC => RK2
15037 procedure(real(RKC)) :: getFunc
15038 type(ninf_type) , intent(in) :: lb
15039 type(pinf_type) , intent(in) :: ub
15040 real(RKC) , intent(in) :: abstol
15041 real(RKC) , intent(in) :: reltol
15042 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15043 real(RKC) , intent(in) , contiguous :: help(:)
15044 real(RKC) , intent(out) :: integral, abserr
15045 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15046 integer(IK) , intent(out) , contiguous :: sindex(:)
15047 integer(IK) , intent(out) :: neval
15048 integer(IK) , intent(out) :: nint
15049 integer(IK) :: err
15050 end function
15051#endif
15052
15053#if RK1_ENABLED
15054 module function QAGP_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15056 !DEC$ ATTRIBUTES DLLEXPORT :: QAGP_GKXX_II_RK1
15057#endif
15058 use pm_kind, only: RKC => RK1
15059 procedure(real(RKC)) :: getFunc
15060 type(ninf_type) , intent(in) :: lb
15061 type(pinf_type) , intent(in) :: ub
15062 real(RKC) , intent(in) :: abstol
15063 real(RKC) , intent(in) :: reltol
15064 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15065 real(RKC) , intent(in) , contiguous :: help(:)
15066 real(RKC) , intent(out) :: integral, abserr
15067 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15068 integer(IK) , intent(out) , contiguous :: sindex(:)
15069 integer(IK) , intent(out) :: neval
15070 integer(IK) , intent(out) :: nint
15071 integer(IK) :: err
15072 end function
15073#endif
15074
15075 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15076
15077 end interface
15078
15079!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15080
15081 ! QAWC FF
15082
15083 interface getQuadErr
15084
15085 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15086
15087#if RK5_ENABLED
15088 module function QAWC_GK15_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15089#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15090 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK5
15091#endif
15092 use pm_kind, only: RKC => RK5
15093 procedure(real(RKC)) :: getFunc
15094 real(RKC) , intent(in) :: lb
15095 real(RKC) , intent(in) :: ub
15096 real(RKC) , intent(in) :: abstol
15097 real(RKC) , intent(in) :: reltol
15098 type(GK15_type) , intent(in) :: qrule
15099 type(wcauchy_type) , intent(in) :: help
15100 real(RKC) , intent(out) :: integral, abserr
15101 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15102 integer(IK) , intent(out) , contiguous :: sindex(:)
15103 integer(IK) , intent(out) :: neval
15104 integer(IK) , intent(out) :: nint
15105 integer(IK) :: err
15106 end function
15107#endif
15108
15109#if RK4_ENABLED
15110 module function QAWC_GK15_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15112 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK4
15113#endif
15114 use pm_kind, only: RKC => RK4
15115 procedure(real(RKC)) :: getFunc
15116 real(RKC) , intent(in) :: lb
15117 real(RKC) , intent(in) :: ub
15118 real(RKC) , intent(in) :: abstol
15119 real(RKC) , intent(in) :: reltol
15120 type(GK15_type) , intent(in) :: qrule
15121 type(wcauchy_type) , intent(in) :: help
15122 real(RKC) , intent(out) :: integral, abserr
15123 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15124 integer(IK) , intent(out) , contiguous :: sindex(:)
15125 integer(IK) , intent(out) :: neval
15126 integer(IK) , intent(out) :: nint
15127 integer(IK) :: err
15128 end function
15129#endif
15130
15131#if RK3_ENABLED
15132 module function QAWC_GK15_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15134 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK3
15135#endif
15136 use pm_kind, only: RKC => RK3
15137 procedure(real(RKC)) :: getFunc
15138 real(RKC) , intent(in) :: lb
15139 real(RKC) , intent(in) :: ub
15140 real(RKC) , intent(in) :: abstol
15141 real(RKC) , intent(in) :: reltol
15142 type(GK15_type) , intent(in) :: qrule
15143 type(wcauchy_type) , intent(in) :: help
15144 real(RKC) , intent(out) :: integral, abserr
15145 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15146 integer(IK) , intent(out) , contiguous :: sindex(:)
15147 integer(IK) , intent(out) :: neval
15148 integer(IK) , intent(out) :: nint
15149 integer(IK) :: err
15150 end function
15151#endif
15152
15153#if RK2_ENABLED
15154 module function QAWC_GK15_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15156 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK2
15157#endif
15158 use pm_kind, only: RKC => RK2
15159 procedure(real(RKC)) :: getFunc
15160 real(RKC) , intent(in) :: lb
15161 real(RKC) , intent(in) :: ub
15162 real(RKC) , intent(in) :: abstol
15163 real(RKC) , intent(in) :: reltol
15164 type(GK15_type) , intent(in) :: qrule
15165 type(wcauchy_type) , intent(in) :: help
15166 real(RKC) , intent(out) :: integral, abserr
15167 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15168 integer(IK) , intent(out) , contiguous :: sindex(:)
15169 integer(IK) , intent(out) :: neval
15170 integer(IK) , intent(out) :: nint
15171 integer(IK) :: err
15172 end function
15173#endif
15174
15175#if RK1_ENABLED
15176 module function QAWC_GK15_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15178 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FF_RK1
15179#endif
15180 use pm_kind, only: RKC => RK1
15181 procedure(real(RKC)) :: getFunc
15182 real(RKC) , intent(in) :: lb
15183 real(RKC) , intent(in) :: ub
15184 real(RKC) , intent(in) :: abstol
15185 real(RKC) , intent(in) :: reltol
15186 type(GK15_type) , intent(in) :: qrule
15187 type(wcauchy_type) , intent(in) :: help
15188 real(RKC) , intent(out) :: integral, abserr
15189 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15190 integer(IK) , intent(out) , contiguous :: sindex(:)
15191 integer(IK) , intent(out) :: neval
15192 integer(IK) , intent(out) :: nint
15193 integer(IK) :: err
15194 end function
15195#endif
15196
15197 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15198
15199#if RK5_ENABLED
15200 module function QAWC_GK21_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15201#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15202 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK5
15203#endif
15204 use pm_kind, only: RKC => RK5
15205 procedure(real(RKC)) :: getFunc
15206 real(RKC) , intent(in) :: lb
15207 real(RKC) , intent(in) :: ub
15208 real(RKC) , intent(in) :: abstol
15209 real(RKC) , intent(in) :: reltol
15210 type(GK21_type) , intent(in) :: qrule
15211 type(wcauchy_type) , intent(in) :: help
15212 real(RKC) , intent(out) :: integral, abserr
15213 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15214 integer(IK) , intent(out) , contiguous :: sindex(:)
15215 integer(IK) , intent(out) :: neval
15216 integer(IK) , intent(out) :: nint
15217 integer(IK) :: err
15218 end function
15219#endif
15220
15221#if RK4_ENABLED
15222 module function QAWC_GK21_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15224 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK4
15225#endif
15226 use pm_kind, only: RKC => RK4
15227 procedure(real(RKC)) :: getFunc
15228 real(RKC) , intent(in) :: lb
15229 real(RKC) , intent(in) :: ub
15230 real(RKC) , intent(in) :: abstol
15231 real(RKC) , intent(in) :: reltol
15232 type(GK21_type) , intent(in) :: qrule
15233 type(wcauchy_type) , intent(in) :: help
15234 real(RKC) , intent(out) :: integral, abserr
15235 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15236 integer(IK) , intent(out) , contiguous :: sindex(:)
15237 integer(IK) , intent(out) :: neval
15238 integer(IK) , intent(out) :: nint
15239 integer(IK) :: err
15240 end function
15241#endif
15242
15243#if RK3_ENABLED
15244 module function QAWC_GK21_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15245#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15246 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK3
15247#endif
15248 use pm_kind, only: RKC => RK3
15249 procedure(real(RKC)) :: getFunc
15250 real(RKC) , intent(in) :: lb
15251 real(RKC) , intent(in) :: ub
15252 real(RKC) , intent(in) :: abstol
15253 real(RKC) , intent(in) :: reltol
15254 type(GK21_type) , intent(in) :: qrule
15255 type(wcauchy_type) , intent(in) :: help
15256 real(RKC) , intent(out) :: integral, abserr
15257 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15258 integer(IK) , intent(out) , contiguous :: sindex(:)
15259 integer(IK) , intent(out) :: neval
15260 integer(IK) , intent(out) :: nint
15261 integer(IK) :: err
15262 end function
15263#endif
15264
15265#if RK2_ENABLED
15266 module function QAWC_GK21_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15268 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK2
15269#endif
15270 use pm_kind, only: RKC => RK2
15271 procedure(real(RKC)) :: getFunc
15272 real(RKC) , intent(in) :: lb
15273 real(RKC) , intent(in) :: ub
15274 real(RKC) , intent(in) :: abstol
15275 real(RKC) , intent(in) :: reltol
15276 type(GK21_type) , intent(in) :: qrule
15277 type(wcauchy_type) , intent(in) :: help
15278 real(RKC) , intent(out) :: integral, abserr
15279 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15280 integer(IK) , intent(out) , contiguous :: sindex(:)
15281 integer(IK) , intent(out) :: neval
15282 integer(IK) , intent(out) :: nint
15283 integer(IK) :: err
15284 end function
15285#endif
15286
15287#if RK1_ENABLED
15288 module function QAWC_GK21_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15290 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FF_RK1
15291#endif
15292 use pm_kind, only: RKC => RK1
15293 procedure(real(RKC)) :: getFunc
15294 real(RKC) , intent(in) :: lb
15295 real(RKC) , intent(in) :: ub
15296 real(RKC) , intent(in) :: abstol
15297 real(RKC) , intent(in) :: reltol
15298 type(GK21_type) , intent(in) :: qrule
15299 type(wcauchy_type) , intent(in) :: help
15300 real(RKC) , intent(out) :: integral, abserr
15301 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15302 integer(IK) , intent(out) , contiguous :: sindex(:)
15303 integer(IK) , intent(out) :: neval
15304 integer(IK) , intent(out) :: nint
15305 integer(IK) :: err
15306 end function
15307#endif
15308
15309 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15310
15311#if RK5_ENABLED
15312 module function QAWC_GK31_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15314 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK5
15315#endif
15316 use pm_kind, only: RKC => RK5
15317 procedure(real(RKC)) :: getFunc
15318 real(RKC) , intent(in) :: lb
15319 real(RKC) , intent(in) :: ub
15320 real(RKC) , intent(in) :: abstol
15321 real(RKC) , intent(in) :: reltol
15322 type(GK31_type) , intent(in) :: qrule
15323 type(wcauchy_type) , intent(in) :: help
15324 real(RKC) , intent(out) :: integral, abserr
15325 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15326 integer(IK) , intent(out) , contiguous :: sindex(:)
15327 integer(IK) , intent(out) :: neval
15328 integer(IK) , intent(out) :: nint
15329 integer(IK) :: err
15330 end function
15331#endif
15332
15333#if RK4_ENABLED
15334 module function QAWC_GK31_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15336 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK4
15337#endif
15338 use pm_kind, only: RKC => RK4
15339 procedure(real(RKC)) :: getFunc
15340 real(RKC) , intent(in) :: lb
15341 real(RKC) , intent(in) :: ub
15342 real(RKC) , intent(in) :: abstol
15343 real(RKC) , intent(in) :: reltol
15344 type(GK31_type) , intent(in) :: qrule
15345 type(wcauchy_type) , intent(in) :: help
15346 real(RKC) , intent(out) :: integral, abserr
15347 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15348 integer(IK) , intent(out) , contiguous :: sindex(:)
15349 integer(IK) , intent(out) :: neval
15350 integer(IK) , intent(out) :: nint
15351 integer(IK) :: err
15352 end function
15353#endif
15354
15355#if RK3_ENABLED
15356 module function QAWC_GK31_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15357#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15358 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK3
15359#endif
15360 use pm_kind, only: RKC => RK3
15361 procedure(real(RKC)) :: getFunc
15362 real(RKC) , intent(in) :: lb
15363 real(RKC) , intent(in) :: ub
15364 real(RKC) , intent(in) :: abstol
15365 real(RKC) , intent(in) :: reltol
15366 type(GK31_type) , intent(in) :: qrule
15367 type(wcauchy_type) , intent(in) :: help
15368 real(RKC) , intent(out) :: integral, abserr
15369 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15370 integer(IK) , intent(out) , contiguous :: sindex(:)
15371 integer(IK) , intent(out) :: neval
15372 integer(IK) , intent(out) :: nint
15373 integer(IK) :: err
15374 end function
15375#endif
15376
15377#if RK2_ENABLED
15378 module function QAWC_GK31_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15380 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK2
15381#endif
15382 use pm_kind, only: RKC => RK2
15383 procedure(real(RKC)) :: getFunc
15384 real(RKC) , intent(in) :: lb
15385 real(RKC) , intent(in) :: ub
15386 real(RKC) , intent(in) :: abstol
15387 real(RKC) , intent(in) :: reltol
15388 type(GK31_type) , intent(in) :: qrule
15389 type(wcauchy_type) , intent(in) :: help
15390 real(RKC) , intent(out) :: integral, abserr
15391 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15392 integer(IK) , intent(out) , contiguous :: sindex(:)
15393 integer(IK) , intent(out) :: neval
15394 integer(IK) , intent(out) :: nint
15395 integer(IK) :: err
15396 end function
15397#endif
15398
15399#if RK1_ENABLED
15400 module function QAWC_GK31_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15402 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FF_RK1
15403#endif
15404 use pm_kind, only: RKC => RK1
15405 procedure(real(RKC)) :: getFunc
15406 real(RKC) , intent(in) :: lb
15407 real(RKC) , intent(in) :: ub
15408 real(RKC) , intent(in) :: abstol
15409 real(RKC) , intent(in) :: reltol
15410 type(GK31_type) , intent(in) :: qrule
15411 type(wcauchy_type) , intent(in) :: help
15412 real(RKC) , intent(out) :: integral, abserr
15413 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15414 integer(IK) , intent(out) , contiguous :: sindex(:)
15415 integer(IK) , intent(out) :: neval
15416 integer(IK) , intent(out) :: nint
15417 integer(IK) :: err
15418 end function
15419#endif
15420
15421 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15422
15423#if RK5_ENABLED
15424 module function QAWC_GK41_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15426 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK5
15427#endif
15428 use pm_kind, only: RKC => RK5
15429 procedure(real(RKC)) :: getFunc
15430 real(RKC) , intent(in) :: lb
15431 real(RKC) , intent(in) :: ub
15432 real(RKC) , intent(in) :: abstol
15433 real(RKC) , intent(in) :: reltol
15434 type(GK41_type) , intent(in) :: qrule
15435 type(wcauchy_type) , intent(in) :: help
15436 real(RKC) , intent(out) :: integral, abserr
15437 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15438 integer(IK) , intent(out) , contiguous :: sindex(:)
15439 integer(IK) , intent(out) :: neval
15440 integer(IK) , intent(out) :: nint
15441 integer(IK) :: err
15442 end function
15443#endif
15444
15445#if RK4_ENABLED
15446 module function QAWC_GK41_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15447#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15448 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK4
15449#endif
15450 use pm_kind, only: RKC => RK4
15451 procedure(real(RKC)) :: getFunc
15452 real(RKC) , intent(in) :: lb
15453 real(RKC) , intent(in) :: ub
15454 real(RKC) , intent(in) :: abstol
15455 real(RKC) , intent(in) :: reltol
15456 type(GK41_type) , intent(in) :: qrule
15457 type(wcauchy_type) , intent(in) :: help
15458 real(RKC) , intent(out) :: integral, abserr
15459 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15460 integer(IK) , intent(out) , contiguous :: sindex(:)
15461 integer(IK) , intent(out) :: neval
15462 integer(IK) , intent(out) :: nint
15463 integer(IK) :: err
15464 end function
15465#endif
15466
15467#if RK3_ENABLED
15468 module function QAWC_GK41_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15470 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK3
15471#endif
15472 use pm_kind, only: RKC => RK3
15473 procedure(real(RKC)) :: getFunc
15474 real(RKC) , intent(in) :: lb
15475 real(RKC) , intent(in) :: ub
15476 real(RKC) , intent(in) :: abstol
15477 real(RKC) , intent(in) :: reltol
15478 type(GK41_type) , intent(in) :: qrule
15479 type(wcauchy_type) , intent(in) :: help
15480 real(RKC) , intent(out) :: integral, abserr
15481 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15482 integer(IK) , intent(out) , contiguous :: sindex(:)
15483 integer(IK) , intent(out) :: neval
15484 integer(IK) , intent(out) :: nint
15485 integer(IK) :: err
15486 end function
15487#endif
15488
15489#if RK2_ENABLED
15490 module function QAWC_GK41_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15492 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK2
15493#endif
15494 use pm_kind, only: RKC => RK2
15495 procedure(real(RKC)) :: getFunc
15496 real(RKC) , intent(in) :: lb
15497 real(RKC) , intent(in) :: ub
15498 real(RKC) , intent(in) :: abstol
15499 real(RKC) , intent(in) :: reltol
15500 type(GK41_type) , intent(in) :: qrule
15501 type(wcauchy_type) , intent(in) :: help
15502 real(RKC) , intent(out) :: integral, abserr
15503 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15504 integer(IK) , intent(out) , contiguous :: sindex(:)
15505 integer(IK) , intent(out) :: neval
15506 integer(IK) , intent(out) :: nint
15507 integer(IK) :: err
15508 end function
15509#endif
15510
15511#if RK1_ENABLED
15512 module function QAWC_GK41_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15514 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FF_RK1
15515#endif
15516 use pm_kind, only: RKC => RK1
15517 procedure(real(RKC)) :: getFunc
15518 real(RKC) , intent(in) :: lb
15519 real(RKC) , intent(in) :: ub
15520 real(RKC) , intent(in) :: abstol
15521 real(RKC) , intent(in) :: reltol
15522 type(GK41_type) , intent(in) :: qrule
15523 type(wcauchy_type) , intent(in) :: help
15524 real(RKC) , intent(out) :: integral, abserr
15525 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15526 integer(IK) , intent(out) , contiguous :: sindex(:)
15527 integer(IK) , intent(out) :: neval
15528 integer(IK) , intent(out) :: nint
15529 integer(IK) :: err
15530 end function
15531#endif
15532
15533 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15534
15535#if RK5_ENABLED
15536 module function QAWC_GK51_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15538 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK5
15539#endif
15540 use pm_kind, only: RKC => RK5
15541 procedure(real(RKC)) :: getFunc
15542 real(RKC) , intent(in) :: lb
15543 real(RKC) , intent(in) :: ub
15544 real(RKC) , intent(in) :: abstol
15545 real(RKC) , intent(in) :: reltol
15546 type(GK51_type) , intent(in) :: qrule
15547 type(wcauchy_type) , intent(in) :: help
15548 real(RKC) , intent(out) :: integral, abserr
15549 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15550 integer(IK) , intent(out) , contiguous :: sindex(:)
15551 integer(IK) , intent(out) :: neval
15552 integer(IK) , intent(out) :: nint
15553 integer(IK) :: err
15554 end function
15555#endif
15556
15557#if RK4_ENABLED
15558 module function QAWC_GK51_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15560 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK4
15561#endif
15562 use pm_kind, only: RKC => RK4
15563 procedure(real(RKC)) :: getFunc
15564 real(RKC) , intent(in) :: lb
15565 real(RKC) , intent(in) :: ub
15566 real(RKC) , intent(in) :: abstol
15567 real(RKC) , intent(in) :: reltol
15568 type(GK51_type) , intent(in) :: qrule
15569 type(wcauchy_type) , intent(in) :: help
15570 real(RKC) , intent(out) :: integral, abserr
15571 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15572 integer(IK) , intent(out) , contiguous :: sindex(:)
15573 integer(IK) , intent(out) :: neval
15574 integer(IK) , intent(out) :: nint
15575 integer(IK) :: err
15576 end function
15577#endif
15578
15579#if RK3_ENABLED
15580 module function QAWC_GK51_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15582 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK3
15583#endif
15584 use pm_kind, only: RKC => RK3
15585 procedure(real(RKC)) :: getFunc
15586 real(RKC) , intent(in) :: lb
15587 real(RKC) , intent(in) :: ub
15588 real(RKC) , intent(in) :: abstol
15589 real(RKC) , intent(in) :: reltol
15590 type(GK51_type) , intent(in) :: qrule
15591 type(wcauchy_type) , intent(in) :: help
15592 real(RKC) , intent(out) :: integral, abserr
15593 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15594 integer(IK) , intent(out) , contiguous :: sindex(:)
15595 integer(IK) , intent(out) :: neval
15596 integer(IK) , intent(out) :: nint
15597 integer(IK) :: err
15598 end function
15599#endif
15600
15601#if RK2_ENABLED
15602 module function QAWC_GK51_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15603#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15604 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK2
15605#endif
15606 use pm_kind, only: RKC => RK2
15607 procedure(real(RKC)) :: getFunc
15608 real(RKC) , intent(in) :: lb
15609 real(RKC) , intent(in) :: ub
15610 real(RKC) , intent(in) :: abstol
15611 real(RKC) , intent(in) :: reltol
15612 type(GK51_type) , intent(in) :: qrule
15613 type(wcauchy_type) , intent(in) :: help
15614 real(RKC) , intent(out) :: integral, abserr
15615 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15616 integer(IK) , intent(out) , contiguous :: sindex(:)
15617 integer(IK) , intent(out) :: neval
15618 integer(IK) , intent(out) :: nint
15619 integer(IK) :: err
15620 end function
15621#endif
15622
15623#if RK1_ENABLED
15624 module function QAWC_GK51_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15625#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15626 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FF_RK1
15627#endif
15628 use pm_kind, only: RKC => RK1
15629 procedure(real(RKC)) :: getFunc
15630 real(RKC) , intent(in) :: lb
15631 real(RKC) , intent(in) :: ub
15632 real(RKC) , intent(in) :: abstol
15633 real(RKC) , intent(in) :: reltol
15634 type(GK51_type) , intent(in) :: qrule
15635 type(wcauchy_type) , intent(in) :: help
15636 real(RKC) , intent(out) :: integral, abserr
15637 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15638 integer(IK) , intent(out) , contiguous :: sindex(:)
15639 integer(IK) , intent(out) :: neval
15640 integer(IK) , intent(out) :: nint
15641 integer(IK) :: err
15642 end function
15643#endif
15644
15645 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15646
15647#if RK5_ENABLED
15648 module function QAWC_GK61_FF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15649#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15650 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK5
15651#endif
15652 use pm_kind, only: RKC => RK5
15653 procedure(real(RKC)) :: getFunc
15654 real(RKC) , intent(in) :: lb
15655 real(RKC) , intent(in) :: ub
15656 real(RKC) , intent(in) :: abstol
15657 real(RKC) , intent(in) :: reltol
15658 type(GK61_type) , intent(in) :: qrule
15659 type(wcauchy_type) , intent(in) :: help
15660 real(RKC) , intent(out) :: integral, abserr
15661 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15662 integer(IK) , intent(out) , contiguous :: sindex(:)
15663 integer(IK) , intent(out) :: neval
15664 integer(IK) , intent(out) :: nint
15665 integer(IK) :: err
15666 end function
15667#endif
15668
15669#if RK4_ENABLED
15670 module function QAWC_GK61_FF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15671#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15672 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK4
15673#endif
15674 use pm_kind, only: RKC => RK4
15675 procedure(real(RKC)) :: getFunc
15676 real(RKC) , intent(in) :: lb
15677 real(RKC) , intent(in) :: ub
15678 real(RKC) , intent(in) :: abstol
15679 real(RKC) , intent(in) :: reltol
15680 type(GK61_type) , intent(in) :: qrule
15681 type(wcauchy_type) , intent(in) :: help
15682 real(RKC) , intent(out) :: integral, abserr
15683 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15684 integer(IK) , intent(out) , contiguous :: sindex(:)
15685 integer(IK) , intent(out) :: neval
15686 integer(IK) , intent(out) :: nint
15687 integer(IK) :: err
15688 end function
15689#endif
15690
15691#if RK3_ENABLED
15692 module function QAWC_GK61_FF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15694 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK3
15695#endif
15696 use pm_kind, only: RKC => RK3
15697 procedure(real(RKC)) :: getFunc
15698 real(RKC) , intent(in) :: lb
15699 real(RKC) , intent(in) :: ub
15700 real(RKC) , intent(in) :: abstol
15701 real(RKC) , intent(in) :: reltol
15702 type(GK61_type) , intent(in) :: qrule
15703 type(wcauchy_type) , intent(in) :: help
15704 real(RKC) , intent(out) :: integral, abserr
15705 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15706 integer(IK) , intent(out) , contiguous :: sindex(:)
15707 integer(IK) , intent(out) :: neval
15708 integer(IK) , intent(out) :: nint
15709 integer(IK) :: err
15710 end function
15711#endif
15712
15713#if RK2_ENABLED
15714 module function QAWC_GK61_FF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15716 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK2
15717#endif
15718 use pm_kind, only: RKC => RK2
15719 procedure(real(RKC)) :: getFunc
15720 real(RKC) , intent(in) :: lb
15721 real(RKC) , intent(in) :: ub
15722 real(RKC) , intent(in) :: abstol
15723 real(RKC) , intent(in) :: reltol
15724 type(GK61_type) , intent(in) :: qrule
15725 type(wcauchy_type) , intent(in) :: help
15726 real(RKC) , intent(out) :: integral, abserr
15727 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15728 integer(IK) , intent(out) , contiguous :: sindex(:)
15729 integer(IK) , intent(out) :: neval
15730 integer(IK) , intent(out) :: nint
15731 integer(IK) :: err
15732 end function
15733#endif
15734
15735#if RK1_ENABLED
15736 module function QAWC_GK61_FF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15737#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15738 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FF_RK1
15739#endif
15740 use pm_kind, only: RKC => RK1
15741 procedure(real(RKC)) :: getFunc
15742 real(RKC) , intent(in) :: lb
15743 real(RKC) , intent(in) :: ub
15744 real(RKC) , intent(in) :: abstol
15745 real(RKC) , intent(in) :: reltol
15746 type(GK61_type) , intent(in) :: qrule
15747 type(wcauchy_type) , intent(in) :: help
15748 real(RKC) , intent(out) :: integral, abserr
15749 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15750 integer(IK) , intent(out) , contiguous :: sindex(:)
15751 integer(IK) , intent(out) :: neval
15752 integer(IK) , intent(out) :: nint
15753 integer(IK) :: err
15754 end function
15755#endif
15756
15757 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15758
15759#if RK5_ENABLED
15760 module function QAWC_GKXX_FF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15762 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK5
15763#endif
15764 use pm_kind, only: RKC => RK5
15765 procedure(real(RKC)) :: getFunc
15766 real(RKC) , intent(in) :: lb
15767 real(RKC) , intent(in) :: ub
15768 real(RKC) , intent(in) :: abstol
15769 real(RKC) , intent(in) :: reltol
15770 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15771 type(wcauchy_type) , intent(in) :: help
15772 real(RKC) , intent(out) :: integral, abserr
15773 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15774 integer(IK) , intent(out) , contiguous :: sindex(:)
15775 integer(IK) , intent(out) :: neval
15776 integer(IK) , intent(out) :: nint
15777 integer(IK) :: err
15778 end function
15779#endif
15780
15781#if RK4_ENABLED
15782 module function QAWC_GKXX_FF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15783#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15784 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK4
15785#endif
15786 use pm_kind, only: RKC => RK4
15787 procedure(real(RKC)) :: getFunc
15788 real(RKC) , intent(in) :: lb
15789 real(RKC) , intent(in) :: ub
15790 real(RKC) , intent(in) :: abstol
15791 real(RKC) , intent(in) :: reltol
15792 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15793 type(wcauchy_type) , intent(in) :: help
15794 real(RKC) , intent(out) :: integral, abserr
15795 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15796 integer(IK) , intent(out) , contiguous :: sindex(:)
15797 integer(IK) , intent(out) :: neval
15798 integer(IK) , intent(out) :: nint
15799 integer(IK) :: err
15800 end function
15801#endif
15802
15803#if RK3_ENABLED
15804 module function QAWC_GKXX_FF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15805#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15806 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK3
15807#endif
15808 use pm_kind, only: RKC => RK3
15809 procedure(real(RKC)) :: getFunc
15810 real(RKC) , intent(in) :: lb
15811 real(RKC) , intent(in) :: ub
15812 real(RKC) , intent(in) :: abstol
15813 real(RKC) , intent(in) :: reltol
15814 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15815 type(wcauchy_type) , intent(in) :: help
15816 real(RKC) , intent(out) :: integral, abserr
15817 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15818 integer(IK) , intent(out) , contiguous :: sindex(:)
15819 integer(IK) , intent(out) :: neval
15820 integer(IK) , intent(out) :: nint
15821 integer(IK) :: err
15822 end function
15823#endif
15824
15825#if RK2_ENABLED
15826 module function QAWC_GKXX_FF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15827#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15828 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK2
15829#endif
15830 use pm_kind, only: RKC => RK2
15831 procedure(real(RKC)) :: getFunc
15832 real(RKC) , intent(in) :: lb
15833 real(RKC) , intent(in) :: ub
15834 real(RKC) , intent(in) :: abstol
15835 real(RKC) , intent(in) :: reltol
15836 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15837 type(wcauchy_type) , intent(in) :: help
15838 real(RKC) , intent(out) :: integral, abserr
15839 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15840 integer(IK) , intent(out) , contiguous :: sindex(:)
15841 integer(IK) , intent(out) :: neval
15842 integer(IK) , intent(out) :: nint
15843 integer(IK) :: err
15844 end function
15845#endif
15846
15847#if RK1_ENABLED
15848 module function QAWC_GKXX_FF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15849#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15850 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FF_RK1
15851#endif
15852 use pm_kind, only: RKC => RK1
15853 procedure(real(RKC)) :: getFunc
15854 real(RKC) , intent(in) :: lb
15855 real(RKC) , intent(in) :: ub
15856 real(RKC) , intent(in) :: abstol
15857 real(RKC) , intent(in) :: reltol
15858 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
15859 type(wcauchy_type) , intent(in) :: help
15860 real(RKC) , intent(out) :: integral, abserr
15861 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15862 integer(IK) , intent(out) , contiguous :: sindex(:)
15863 integer(IK) , intent(out) :: neval
15864 integer(IK) , intent(out) :: nint
15865 integer(IK) :: err
15866 end function
15867#endif
15868
15869 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15870
15871 end interface
15872
15873 ! QAWC FI
15874
15875 interface getQuadErr
15876
15877 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15878
15879#if RK5_ENABLED
15880 module function QAWC_GK15_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15881#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15882 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK5
15883#endif
15884 use pm_kind, only: RKC => RK5
15885 procedure(real(RKC)) :: getFunc
15886 real(RKC) , intent(in) :: lb
15887 type(pinf_type) , intent(in) :: ub
15888 real(RKC) , intent(in) :: abstol
15889 real(RKC) , intent(in) :: reltol
15890 type(GK15_type) , intent(in) :: qrule
15891 type(wcauchy_type) , intent(in) :: help
15892 real(RKC) , intent(out) :: integral, abserr
15893 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15894 integer(IK) , intent(out) , contiguous :: sindex(:)
15895 integer(IK) , intent(out) :: neval
15896 integer(IK) , intent(out) :: nint
15897 integer(IK) :: err
15898 end function
15899#endif
15900
15901#if RK4_ENABLED
15902 module function QAWC_GK15_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15904 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK4
15905#endif
15906 use pm_kind, only: RKC => RK4
15907 procedure(real(RKC)) :: getFunc
15908 real(RKC) , intent(in) :: lb
15909 type(pinf_type) , intent(in) :: ub
15910 real(RKC) , intent(in) :: abstol
15911 real(RKC) , intent(in) :: reltol
15912 type(GK15_type) , intent(in) :: qrule
15913 type(wcauchy_type) , intent(in) :: help
15914 real(RKC) , intent(out) :: integral, abserr
15915 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15916 integer(IK) , intent(out) , contiguous :: sindex(:)
15917 integer(IK) , intent(out) :: neval
15918 integer(IK) , intent(out) :: nint
15919 integer(IK) :: err
15920 end function
15921#endif
15922
15923#if RK3_ENABLED
15924 module function QAWC_GK15_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15926 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK3
15927#endif
15928 use pm_kind, only: RKC => RK3
15929 procedure(real(RKC)) :: getFunc
15930 real(RKC) , intent(in) :: lb
15931 type(pinf_type) , intent(in) :: ub
15932 real(RKC) , intent(in) :: abstol
15933 real(RKC) , intent(in) :: reltol
15934 type(GK15_type) , intent(in) :: qrule
15935 type(wcauchy_type) , intent(in) :: help
15936 real(RKC) , intent(out) :: integral, abserr
15937 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15938 integer(IK) , intent(out) , contiguous :: sindex(:)
15939 integer(IK) , intent(out) :: neval
15940 integer(IK) , intent(out) :: nint
15941 integer(IK) :: err
15942 end function
15943#endif
15944
15945#if RK2_ENABLED
15946 module function QAWC_GK15_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15948 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK2
15949#endif
15950 use pm_kind, only: RKC => RK2
15951 procedure(real(RKC)) :: getFunc
15952 real(RKC) , intent(in) :: lb
15953 type(pinf_type) , intent(in) :: ub
15954 real(RKC) , intent(in) :: abstol
15955 real(RKC) , intent(in) :: reltol
15956 type(GK15_type) , intent(in) :: qrule
15957 type(wcauchy_type) , intent(in) :: help
15958 real(RKC) , intent(out) :: integral, abserr
15959 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15960 integer(IK) , intent(out) , contiguous :: sindex(:)
15961 integer(IK) , intent(out) :: neval
15962 integer(IK) , intent(out) :: nint
15963 integer(IK) :: err
15964 end function
15965#endif
15966
15967#if RK1_ENABLED
15968 module function QAWC_GK15_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15970 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_FI_RK1
15971#endif
15972 use pm_kind, only: RKC => RK1
15973 procedure(real(RKC)) :: getFunc
15974 real(RKC) , intent(in) :: lb
15975 type(pinf_type) , intent(in) :: ub
15976 real(RKC) , intent(in) :: abstol
15977 real(RKC) , intent(in) :: reltol
15978 type(GK15_type) , intent(in) :: qrule
15979 type(wcauchy_type) , intent(in) :: help
15980 real(RKC) , intent(out) :: integral, abserr
15981 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
15982 integer(IK) , intent(out) , contiguous :: sindex(:)
15983 integer(IK) , intent(out) :: neval
15984 integer(IK) , intent(out) :: nint
15985 integer(IK) :: err
15986 end function
15987#endif
15988
15989 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
15990
15991#if RK5_ENABLED
15992 module function QAWC_GK21_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
15993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
15994 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK5
15995#endif
15996 use pm_kind, only: RKC => RK5
15997 procedure(real(RKC)) :: getFunc
15998 real(RKC) , intent(in) :: lb
15999 type(pinf_type) , intent(in) :: ub
16000 real(RKC) , intent(in) :: abstol
16001 real(RKC) , intent(in) :: reltol
16002 type(GK21_type) , intent(in) :: qrule
16003 type(wcauchy_type) , intent(in) :: help
16004 real(RKC) , intent(out) :: integral, abserr
16005 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16006 integer(IK) , intent(out) , contiguous :: sindex(:)
16007 integer(IK) , intent(out) :: neval
16008 integer(IK) , intent(out) :: nint
16009 integer(IK) :: err
16010 end function
16011#endif
16012
16013#if RK4_ENABLED
16014 module function QAWC_GK21_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16015#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16016 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK4
16017#endif
16018 use pm_kind, only: RKC => RK4
16019 procedure(real(RKC)) :: getFunc
16020 real(RKC) , intent(in) :: lb
16021 type(pinf_type) , intent(in) :: ub
16022 real(RKC) , intent(in) :: abstol
16023 real(RKC) , intent(in) :: reltol
16024 type(GK21_type) , intent(in) :: qrule
16025 type(wcauchy_type) , intent(in) :: help
16026 real(RKC) , intent(out) :: integral, abserr
16027 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16028 integer(IK) , intent(out) , contiguous :: sindex(:)
16029 integer(IK) , intent(out) :: neval
16030 integer(IK) , intent(out) :: nint
16031 integer(IK) :: err
16032 end function
16033#endif
16034
16035#if RK3_ENABLED
16036 module function QAWC_GK21_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16037#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16038 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK3
16039#endif
16040 use pm_kind, only: RKC => RK3
16041 procedure(real(RKC)) :: getFunc
16042 real(RKC) , intent(in) :: lb
16043 type(pinf_type) , intent(in) :: ub
16044 real(RKC) , intent(in) :: abstol
16045 real(RKC) , intent(in) :: reltol
16046 type(GK21_type) , intent(in) :: qrule
16047 type(wcauchy_type) , intent(in) :: help
16048 real(RKC) , intent(out) :: integral, abserr
16049 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16050 integer(IK) , intent(out) , contiguous :: sindex(:)
16051 integer(IK) , intent(out) :: neval
16052 integer(IK) , intent(out) :: nint
16053 integer(IK) :: err
16054 end function
16055#endif
16056
16057#if RK2_ENABLED
16058 module function QAWC_GK21_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16060 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK2
16061#endif
16062 use pm_kind, only: RKC => RK2
16063 procedure(real(RKC)) :: getFunc
16064 real(RKC) , intent(in) :: lb
16065 type(pinf_type) , intent(in) :: ub
16066 real(RKC) , intent(in) :: abstol
16067 real(RKC) , intent(in) :: reltol
16068 type(GK21_type) , intent(in) :: qrule
16069 type(wcauchy_type) , intent(in) :: help
16070 real(RKC) , intent(out) :: integral, abserr
16071 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16072 integer(IK) , intent(out) , contiguous :: sindex(:)
16073 integer(IK) , intent(out) :: neval
16074 integer(IK) , intent(out) :: nint
16075 integer(IK) :: err
16076 end function
16077#endif
16078
16079#if RK1_ENABLED
16080 module function QAWC_GK21_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16082 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_FI_RK1
16083#endif
16084 use pm_kind, only: RKC => RK1
16085 procedure(real(RKC)) :: getFunc
16086 real(RKC) , intent(in) :: lb
16087 type(pinf_type) , intent(in) :: ub
16088 real(RKC) , intent(in) :: abstol
16089 real(RKC) , intent(in) :: reltol
16090 type(GK21_type) , intent(in) :: qrule
16091 type(wcauchy_type) , intent(in) :: help
16092 real(RKC) , intent(out) :: integral, abserr
16093 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16094 integer(IK) , intent(out) , contiguous :: sindex(:)
16095 integer(IK) , intent(out) :: neval
16096 integer(IK) , intent(out) :: nint
16097 integer(IK) :: err
16098 end function
16099#endif
16100
16101 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16102
16103#if RK5_ENABLED
16104 module function QAWC_GK31_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16106 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK5
16107#endif
16108 use pm_kind, only: RKC => RK5
16109 procedure(real(RKC)) :: getFunc
16110 real(RKC) , intent(in) :: lb
16111 type(pinf_type) , intent(in) :: ub
16112 real(RKC) , intent(in) :: abstol
16113 real(RKC) , intent(in) :: reltol
16114 type(GK31_type) , intent(in) :: qrule
16115 type(wcauchy_type) , intent(in) :: help
16116 real(RKC) , intent(out) :: integral, abserr
16117 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16118 integer(IK) , intent(out) , contiguous :: sindex(:)
16119 integer(IK) , intent(out) :: neval
16120 integer(IK) , intent(out) :: nint
16121 integer(IK) :: err
16122 end function
16123#endif
16124
16125#if RK4_ENABLED
16126 module function QAWC_GK31_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16128 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK4
16129#endif
16130 use pm_kind, only: RKC => RK4
16131 procedure(real(RKC)) :: getFunc
16132 real(RKC) , intent(in) :: lb
16133 type(pinf_type) , intent(in) :: ub
16134 real(RKC) , intent(in) :: abstol
16135 real(RKC) , intent(in) :: reltol
16136 type(GK31_type) , intent(in) :: qrule
16137 type(wcauchy_type) , intent(in) :: help
16138 real(RKC) , intent(out) :: integral, abserr
16139 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16140 integer(IK) , intent(out) , contiguous :: sindex(:)
16141 integer(IK) , intent(out) :: neval
16142 integer(IK) , intent(out) :: nint
16143 integer(IK) :: err
16144 end function
16145#endif
16146
16147#if RK3_ENABLED
16148 module function QAWC_GK31_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16149#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16150 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK3
16151#endif
16152 use pm_kind, only: RKC => RK3
16153 procedure(real(RKC)) :: getFunc
16154 real(RKC) , intent(in) :: lb
16155 type(pinf_type) , intent(in) :: ub
16156 real(RKC) , intent(in) :: abstol
16157 real(RKC) , intent(in) :: reltol
16158 type(GK31_type) , intent(in) :: qrule
16159 type(wcauchy_type) , intent(in) :: help
16160 real(RKC) , intent(out) :: integral, abserr
16161 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16162 integer(IK) , intent(out) , contiguous :: sindex(:)
16163 integer(IK) , intent(out) :: neval
16164 integer(IK) , intent(out) :: nint
16165 integer(IK) :: err
16166 end function
16167#endif
16168
16169#if RK2_ENABLED
16170 module function QAWC_GK31_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16171#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16172 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK2
16173#endif
16174 use pm_kind, only: RKC => RK2
16175 procedure(real(RKC)) :: getFunc
16176 real(RKC) , intent(in) :: lb
16177 type(pinf_type) , intent(in) :: ub
16178 real(RKC) , intent(in) :: abstol
16179 real(RKC) , intent(in) :: reltol
16180 type(GK31_type) , intent(in) :: qrule
16181 type(wcauchy_type) , intent(in) :: help
16182 real(RKC) , intent(out) :: integral, abserr
16183 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16184 integer(IK) , intent(out) , contiguous :: sindex(:)
16185 integer(IK) , intent(out) :: neval
16186 integer(IK) , intent(out) :: nint
16187 integer(IK) :: err
16188 end function
16189#endif
16190
16191#if RK1_ENABLED
16192 module function QAWC_GK31_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16194 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_FI_RK1
16195#endif
16196 use pm_kind, only: RKC => RK1
16197 procedure(real(RKC)) :: getFunc
16198 real(RKC) , intent(in) :: lb
16199 type(pinf_type) , intent(in) :: ub
16200 real(RKC) , intent(in) :: abstol
16201 real(RKC) , intent(in) :: reltol
16202 type(GK31_type) , intent(in) :: qrule
16203 type(wcauchy_type) , intent(in) :: help
16204 real(RKC) , intent(out) :: integral, abserr
16205 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16206 integer(IK) , intent(out) , contiguous :: sindex(:)
16207 integer(IK) , intent(out) :: neval
16208 integer(IK) , intent(out) :: nint
16209 integer(IK) :: err
16210 end function
16211#endif
16212
16213 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16214
16215#if RK5_ENABLED
16216 module function QAWC_GK41_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16218 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK5
16219#endif
16220 use pm_kind, only: RKC => RK5
16221 procedure(real(RKC)) :: getFunc
16222 real(RKC) , intent(in) :: lb
16223 type(pinf_type) , intent(in) :: ub
16224 real(RKC) , intent(in) :: abstol
16225 real(RKC) , intent(in) :: reltol
16226 type(GK41_type) , intent(in) :: qrule
16227 type(wcauchy_type) , intent(in) :: help
16228 real(RKC) , intent(out) :: integral, abserr
16229 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16230 integer(IK) , intent(out) , contiguous :: sindex(:)
16231 integer(IK) , intent(out) :: neval
16232 integer(IK) , intent(out) :: nint
16233 integer(IK) :: err
16234 end function
16235#endif
16236
16237#if RK4_ENABLED
16238 module function QAWC_GK41_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16239#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16240 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK4
16241#endif
16242 use pm_kind, only: RKC => RK4
16243 procedure(real(RKC)) :: getFunc
16244 real(RKC) , intent(in) :: lb
16245 type(pinf_type) , intent(in) :: ub
16246 real(RKC) , intent(in) :: abstol
16247 real(RKC) , intent(in) :: reltol
16248 type(GK41_type) , intent(in) :: qrule
16249 type(wcauchy_type) , intent(in) :: help
16250 real(RKC) , intent(out) :: integral, abserr
16251 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16252 integer(IK) , intent(out) , contiguous :: sindex(:)
16253 integer(IK) , intent(out) :: neval
16254 integer(IK) , intent(out) :: nint
16255 integer(IK) :: err
16256 end function
16257#endif
16258
16259#if RK3_ENABLED
16260 module function QAWC_GK41_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16261#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16262 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK3
16263#endif
16264 use pm_kind, only: RKC => RK3
16265 procedure(real(RKC)) :: getFunc
16266 real(RKC) , intent(in) :: lb
16267 type(pinf_type) , intent(in) :: ub
16268 real(RKC) , intent(in) :: abstol
16269 real(RKC) , intent(in) :: reltol
16270 type(GK41_type) , intent(in) :: qrule
16271 type(wcauchy_type) , intent(in) :: help
16272 real(RKC) , intent(out) :: integral, abserr
16273 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16274 integer(IK) , intent(out) , contiguous :: sindex(:)
16275 integer(IK) , intent(out) :: neval
16276 integer(IK) , intent(out) :: nint
16277 integer(IK) :: err
16278 end function
16279#endif
16280
16281#if RK2_ENABLED
16282 module function QAWC_GK41_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16284 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK2
16285#endif
16286 use pm_kind, only: RKC => RK2
16287 procedure(real(RKC)) :: getFunc
16288 real(RKC) , intent(in) :: lb
16289 type(pinf_type) , intent(in) :: ub
16290 real(RKC) , intent(in) :: abstol
16291 real(RKC) , intent(in) :: reltol
16292 type(GK41_type) , intent(in) :: qrule
16293 type(wcauchy_type) , intent(in) :: help
16294 real(RKC) , intent(out) :: integral, abserr
16295 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16296 integer(IK) , intent(out) , contiguous :: sindex(:)
16297 integer(IK) , intent(out) :: neval
16298 integer(IK) , intent(out) :: nint
16299 integer(IK) :: err
16300 end function
16301#endif
16302
16303#if RK1_ENABLED
16304 module function QAWC_GK41_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16305#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16306 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_FI_RK1
16307#endif
16308 use pm_kind, only: RKC => RK1
16309 procedure(real(RKC)) :: getFunc
16310 real(RKC) , intent(in) :: lb
16311 type(pinf_type) , intent(in) :: ub
16312 real(RKC) , intent(in) :: abstol
16313 real(RKC) , intent(in) :: reltol
16314 type(GK41_type) , intent(in) :: qrule
16315 type(wcauchy_type) , intent(in) :: help
16316 real(RKC) , intent(out) :: integral, abserr
16317 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16318 integer(IK) , intent(out) , contiguous :: sindex(:)
16319 integer(IK) , intent(out) :: neval
16320 integer(IK) , intent(out) :: nint
16321 integer(IK) :: err
16322 end function
16323#endif
16324
16325 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16326
16327#if RK5_ENABLED
16328 module function QAWC_GK51_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16330 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK5
16331#endif
16332 use pm_kind, only: RKC => RK5
16333 procedure(real(RKC)) :: getFunc
16334 real(RKC) , intent(in) :: lb
16335 type(pinf_type) , intent(in) :: ub
16336 real(RKC) , intent(in) :: abstol
16337 real(RKC) , intent(in) :: reltol
16338 type(GK51_type) , intent(in) :: qrule
16339 type(wcauchy_type) , intent(in) :: help
16340 real(RKC) , intent(out) :: integral, abserr
16341 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16342 integer(IK) , intent(out) , contiguous :: sindex(:)
16343 integer(IK) , intent(out) :: neval
16344 integer(IK) , intent(out) :: nint
16345 integer(IK) :: err
16346 end function
16347#endif
16348
16349#if RK4_ENABLED
16350 module function QAWC_GK51_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16351#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16352 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK4
16353#endif
16354 use pm_kind, only: RKC => RK4
16355 procedure(real(RKC)) :: getFunc
16356 real(RKC) , intent(in) :: lb
16357 type(pinf_type) , intent(in) :: ub
16358 real(RKC) , intent(in) :: abstol
16359 real(RKC) , intent(in) :: reltol
16360 type(GK51_type) , intent(in) :: qrule
16361 type(wcauchy_type) , intent(in) :: help
16362 real(RKC) , intent(out) :: integral, abserr
16363 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16364 integer(IK) , intent(out) , contiguous :: sindex(:)
16365 integer(IK) , intent(out) :: neval
16366 integer(IK) , intent(out) :: nint
16367 integer(IK) :: err
16368 end function
16369#endif
16370
16371#if RK3_ENABLED
16372 module function QAWC_GK51_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16374 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK3
16375#endif
16376 use pm_kind, only: RKC => RK3
16377 procedure(real(RKC)) :: getFunc
16378 real(RKC) , intent(in) :: lb
16379 type(pinf_type) , intent(in) :: ub
16380 real(RKC) , intent(in) :: abstol
16381 real(RKC) , intent(in) :: reltol
16382 type(GK51_type) , intent(in) :: qrule
16383 type(wcauchy_type) , intent(in) :: help
16384 real(RKC) , intent(out) :: integral, abserr
16385 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16386 integer(IK) , intent(out) , contiguous :: sindex(:)
16387 integer(IK) , intent(out) :: neval
16388 integer(IK) , intent(out) :: nint
16389 integer(IK) :: err
16390 end function
16391#endif
16392
16393#if RK2_ENABLED
16394 module function QAWC_GK51_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16396 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK2
16397#endif
16398 use pm_kind, only: RKC => RK2
16399 procedure(real(RKC)) :: getFunc
16400 real(RKC) , intent(in) :: lb
16401 type(pinf_type) , intent(in) :: ub
16402 real(RKC) , intent(in) :: abstol
16403 real(RKC) , intent(in) :: reltol
16404 type(GK51_type) , intent(in) :: qrule
16405 type(wcauchy_type) , intent(in) :: help
16406 real(RKC) , intent(out) :: integral, abserr
16407 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16408 integer(IK) , intent(out) , contiguous :: sindex(:)
16409 integer(IK) , intent(out) :: neval
16410 integer(IK) , intent(out) :: nint
16411 integer(IK) :: err
16412 end function
16413#endif
16414
16415#if RK1_ENABLED
16416 module function QAWC_GK51_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16417#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16418 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_FI_RK1
16419#endif
16420 use pm_kind, only: RKC => RK1
16421 procedure(real(RKC)) :: getFunc
16422 real(RKC) , intent(in) :: lb
16423 type(pinf_type) , intent(in) :: ub
16424 real(RKC) , intent(in) :: abstol
16425 real(RKC) , intent(in) :: reltol
16426 type(GK51_type) , intent(in) :: qrule
16427 type(wcauchy_type) , intent(in) :: help
16428 real(RKC) , intent(out) :: integral, abserr
16429 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16430 integer(IK) , intent(out) , contiguous :: sindex(:)
16431 integer(IK) , intent(out) :: neval
16432 integer(IK) , intent(out) :: nint
16433 integer(IK) :: err
16434 end function
16435#endif
16436
16437 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16438
16439#if RK5_ENABLED
16440 module function QAWC_GK61_FI_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16442 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK5
16443#endif
16444 use pm_kind, only: RKC => RK5
16445 procedure(real(RKC)) :: getFunc
16446 real(RKC) , intent(in) :: lb
16447 type(pinf_type) , intent(in) :: ub
16448 real(RKC) , intent(in) :: abstol
16449 real(RKC) , intent(in) :: reltol
16450 type(GK61_type) , intent(in) :: qrule
16451 type(wcauchy_type) , intent(in) :: help
16452 real(RKC) , intent(out) :: integral, abserr
16453 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16454 integer(IK) , intent(out) , contiguous :: sindex(:)
16455 integer(IK) , intent(out) :: neval
16456 integer(IK) , intent(out) :: nint
16457 integer(IK) :: err
16458 end function
16459#endif
16460
16461#if RK4_ENABLED
16462 module function QAWC_GK61_FI_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16464 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK4
16465#endif
16466 use pm_kind, only: RKC => RK4
16467 procedure(real(RKC)) :: getFunc
16468 real(RKC) , intent(in) :: lb
16469 type(pinf_type) , intent(in) :: ub
16470 real(RKC) , intent(in) :: abstol
16471 real(RKC) , intent(in) :: reltol
16472 type(GK61_type) , intent(in) :: qrule
16473 type(wcauchy_type) , intent(in) :: help
16474 real(RKC) , intent(out) :: integral, abserr
16475 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16476 integer(IK) , intent(out) , contiguous :: sindex(:)
16477 integer(IK) , intent(out) :: neval
16478 integer(IK) , intent(out) :: nint
16479 integer(IK) :: err
16480 end function
16481#endif
16482
16483#if RK3_ENABLED
16484 module function QAWC_GK61_FI_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16486 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK3
16487#endif
16488 use pm_kind, only: RKC => RK3
16489 procedure(real(RKC)) :: getFunc
16490 real(RKC) , intent(in) :: lb
16491 type(pinf_type) , intent(in) :: ub
16492 real(RKC) , intent(in) :: abstol
16493 real(RKC) , intent(in) :: reltol
16494 type(GK61_type) , intent(in) :: qrule
16495 type(wcauchy_type) , intent(in) :: help
16496 real(RKC) , intent(out) :: integral, abserr
16497 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16498 integer(IK) , intent(out) , contiguous :: sindex(:)
16499 integer(IK) , intent(out) :: neval
16500 integer(IK) , intent(out) :: nint
16501 integer(IK) :: err
16502 end function
16503#endif
16504
16505#if RK2_ENABLED
16506 module function QAWC_GK61_FI_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16508 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK2
16509#endif
16510 use pm_kind, only: RKC => RK2
16511 procedure(real(RKC)) :: getFunc
16512 real(RKC) , intent(in) :: lb
16513 type(pinf_type) , intent(in) :: ub
16514 real(RKC) , intent(in) :: abstol
16515 real(RKC) , intent(in) :: reltol
16516 type(GK61_type) , intent(in) :: qrule
16517 type(wcauchy_type) , intent(in) :: help
16518 real(RKC) , intent(out) :: integral, abserr
16519 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16520 integer(IK) , intent(out) , contiguous :: sindex(:)
16521 integer(IK) , intent(out) :: neval
16522 integer(IK) , intent(out) :: nint
16523 integer(IK) :: err
16524 end function
16525#endif
16526
16527#if RK1_ENABLED
16528 module function QAWC_GK61_FI_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16530 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_FI_RK1
16531#endif
16532 use pm_kind, only: RKC => RK1
16533 procedure(real(RKC)) :: getFunc
16534 real(RKC) , intent(in) :: lb
16535 type(pinf_type) , intent(in) :: ub
16536 real(RKC) , intent(in) :: abstol
16537 real(RKC) , intent(in) :: reltol
16538 type(GK61_type) , intent(in) :: qrule
16539 type(wcauchy_type) , intent(in) :: help
16540 real(RKC) , intent(out) :: integral, abserr
16541 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16542 integer(IK) , intent(out) , contiguous :: sindex(:)
16543 integer(IK) , intent(out) :: neval
16544 integer(IK) , intent(out) :: nint
16545 integer(IK) :: err
16546 end function
16547#endif
16548
16549 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16550
16551#if RK5_ENABLED
16552 module function QAWC_GKXX_FI_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16554 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK5
16555#endif
16556 use pm_kind, only: RKC => RK5
16557 procedure(real(RKC)) :: getFunc
16558 real(RKC) , intent(in) :: lb
16559 type(pinf_type) , intent(in) :: ub
16560 real(RKC) , intent(in) :: abstol
16561 real(RKC) , intent(in) :: reltol
16562 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16563 type(wcauchy_type) , intent(in) :: help
16564 real(RKC) , intent(out) :: integral, abserr
16565 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16566 integer(IK) , intent(out) , contiguous :: sindex(:)
16567 integer(IK) , intent(out) :: neval
16568 integer(IK) , intent(out) :: nint
16569 integer(IK) :: err
16570 end function
16571#endif
16572
16573#if RK4_ENABLED
16574 module function QAWC_GKXX_FI_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16576 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK4
16577#endif
16578 use pm_kind, only: RKC => RK4
16579 procedure(real(RKC)) :: getFunc
16580 real(RKC) , intent(in) :: lb
16581 type(pinf_type) , intent(in) :: ub
16582 real(RKC) , intent(in) :: abstol
16583 real(RKC) , intent(in) :: reltol
16584 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16585 type(wcauchy_type) , intent(in) :: help
16586 real(RKC) , intent(out) :: integral, abserr
16587 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16588 integer(IK) , intent(out) , contiguous :: sindex(:)
16589 integer(IK) , intent(out) :: neval
16590 integer(IK) , intent(out) :: nint
16591 integer(IK) :: err
16592 end function
16593#endif
16594
16595#if RK3_ENABLED
16596 module function QAWC_GKXX_FI_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16598 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK3
16599#endif
16600 use pm_kind, only: RKC => RK3
16601 procedure(real(RKC)) :: getFunc
16602 real(RKC) , intent(in) :: lb
16603 type(pinf_type) , intent(in) :: ub
16604 real(RKC) , intent(in) :: abstol
16605 real(RKC) , intent(in) :: reltol
16606 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16607 type(wcauchy_type) , intent(in) :: help
16608 real(RKC) , intent(out) :: integral, abserr
16609 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16610 integer(IK) , intent(out) , contiguous :: sindex(:)
16611 integer(IK) , intent(out) :: neval
16612 integer(IK) , intent(out) :: nint
16613 integer(IK) :: err
16614 end function
16615#endif
16616
16617#if RK2_ENABLED
16618 module function QAWC_GKXX_FI_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16619#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16620 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK2
16621#endif
16622 use pm_kind, only: RKC => RK2
16623 procedure(real(RKC)) :: getFunc
16624 real(RKC) , intent(in) :: lb
16625 type(pinf_type) , intent(in) :: ub
16626 real(RKC) , intent(in) :: abstol
16627 real(RKC) , intent(in) :: reltol
16628 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16629 type(wcauchy_type) , intent(in) :: help
16630 real(RKC) , intent(out) :: integral, abserr
16631 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16632 integer(IK) , intent(out) , contiguous :: sindex(:)
16633 integer(IK) , intent(out) :: neval
16634 integer(IK) , intent(out) :: nint
16635 integer(IK) :: err
16636 end function
16637#endif
16638
16639#if RK1_ENABLED
16640 module function QAWC_GKXX_FI_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16641#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16642 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_FI_RK1
16643#endif
16644 use pm_kind, only: RKC => RK1
16645 procedure(real(RKC)) :: getFunc
16646 real(RKC) , intent(in) :: lb
16647 type(pinf_type) , intent(in) :: ub
16648 real(RKC) , intent(in) :: abstol
16649 real(RKC) , intent(in) :: reltol
16650 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
16651 type(wcauchy_type) , intent(in) :: help
16652 real(RKC) , intent(out) :: integral, abserr
16653 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16654 integer(IK) , intent(out) , contiguous :: sindex(:)
16655 integer(IK) , intent(out) :: neval
16656 integer(IK) , intent(out) :: nint
16657 integer(IK) :: err
16658 end function
16659#endif
16660
16661 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16662
16663 end interface
16664
16665 ! QAWC IF
16666
16667 interface getQuadErr
16668
16669 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16670
16671#if RK5_ENABLED
16672 module function QAWC_GK15_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16674 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK5
16675#endif
16676 use pm_kind, only: RKC => RK5
16677 procedure(real(RKC)) :: getFunc
16678 type(ninf_type) , intent(in) :: lb
16679 real(RKC) , intent(in) :: ub
16680 real(RKC) , intent(in) :: abstol
16681 real(RKC) , intent(in) :: reltol
16682 type(GK15_type) , intent(in) :: qrule
16683 type(wcauchy_type) , intent(in) :: help
16684 real(RKC) , intent(out) :: integral, abserr
16685 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16686 integer(IK) , intent(out) , contiguous :: sindex(:)
16687 integer(IK) , intent(out) :: neval
16688 integer(IK) , intent(out) :: nint
16689 integer(IK) :: err
16690 end function
16691#endif
16692
16693#if RK4_ENABLED
16694 module function QAWC_GK15_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16696 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK4
16697#endif
16698 use pm_kind, only: RKC => RK4
16699 procedure(real(RKC)) :: getFunc
16700 type(ninf_type) , intent(in) :: lb
16701 real(RKC) , intent(in) :: ub
16702 real(RKC) , intent(in) :: abstol
16703 real(RKC) , intent(in) :: reltol
16704 type(GK15_type) , intent(in) :: qrule
16705 type(wcauchy_type) , intent(in) :: help
16706 real(RKC) , intent(out) :: integral, abserr
16707 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16708 integer(IK) , intent(out) , contiguous :: sindex(:)
16709 integer(IK) , intent(out) :: neval
16710 integer(IK) , intent(out) :: nint
16711 integer(IK) :: err
16712 end function
16713#endif
16714
16715#if RK3_ENABLED
16716 module function QAWC_GK15_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16718 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK3
16719#endif
16720 use pm_kind, only: RKC => RK3
16721 procedure(real(RKC)) :: getFunc
16722 type(ninf_type) , intent(in) :: lb
16723 real(RKC) , intent(in) :: ub
16724 real(RKC) , intent(in) :: abstol
16725 real(RKC) , intent(in) :: reltol
16726 type(GK15_type) , intent(in) :: qrule
16727 type(wcauchy_type) , intent(in) :: help
16728 real(RKC) , intent(out) :: integral, abserr
16729 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16730 integer(IK) , intent(out) , contiguous :: sindex(:)
16731 integer(IK) , intent(out) :: neval
16732 integer(IK) , intent(out) :: nint
16733 integer(IK) :: err
16734 end function
16735#endif
16736
16737#if RK2_ENABLED
16738 module function QAWC_GK15_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16740 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK2
16741#endif
16742 use pm_kind, only: RKC => RK2
16743 procedure(real(RKC)) :: getFunc
16744 type(ninf_type) , intent(in) :: lb
16745 real(RKC) , intent(in) :: ub
16746 real(RKC) , intent(in) :: abstol
16747 real(RKC) , intent(in) :: reltol
16748 type(GK15_type) , intent(in) :: qrule
16749 type(wcauchy_type) , intent(in) :: help
16750 real(RKC) , intent(out) :: integral, abserr
16751 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16752 integer(IK) , intent(out) , contiguous :: sindex(:)
16753 integer(IK) , intent(out) :: neval
16754 integer(IK) , intent(out) :: nint
16755 integer(IK) :: err
16756 end function
16757#endif
16758
16759#if RK1_ENABLED
16760 module function QAWC_GK15_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16762 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_IF_RK1
16763#endif
16764 use pm_kind, only: RKC => RK1
16765 procedure(real(RKC)) :: getFunc
16766 type(ninf_type) , intent(in) :: lb
16767 real(RKC) , intent(in) :: ub
16768 real(RKC) , intent(in) :: abstol
16769 real(RKC) , intent(in) :: reltol
16770 type(GK15_type) , intent(in) :: qrule
16771 type(wcauchy_type) , intent(in) :: help
16772 real(RKC) , intent(out) :: integral, abserr
16773 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16774 integer(IK) , intent(out) , contiguous :: sindex(:)
16775 integer(IK) , intent(out) :: neval
16776 integer(IK) , intent(out) :: nint
16777 integer(IK) :: err
16778 end function
16779#endif
16780
16781 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16782
16783#if RK5_ENABLED
16784 module function QAWC_GK21_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16785#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16786 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK5
16787#endif
16788 use pm_kind, only: RKC => RK5
16789 procedure(real(RKC)) :: getFunc
16790 type(ninf_type) , intent(in) :: lb
16791 real(RKC) , intent(in) :: ub
16792 real(RKC) , intent(in) :: abstol
16793 real(RKC) , intent(in) :: reltol
16794 type(GK21_type) , intent(in) :: qrule
16795 type(wcauchy_type) , intent(in) :: help
16796 real(RKC) , intent(out) :: integral, abserr
16797 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16798 integer(IK) , intent(out) , contiguous :: sindex(:)
16799 integer(IK) , intent(out) :: neval
16800 integer(IK) , intent(out) :: nint
16801 integer(IK) :: err
16802 end function
16803#endif
16804
16805#if RK4_ENABLED
16806 module function QAWC_GK21_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16808 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK4
16809#endif
16810 use pm_kind, only: RKC => RK4
16811 procedure(real(RKC)) :: getFunc
16812 type(ninf_type) , intent(in) :: lb
16813 real(RKC) , intent(in) :: ub
16814 real(RKC) , intent(in) :: abstol
16815 real(RKC) , intent(in) :: reltol
16816 type(GK21_type) , intent(in) :: qrule
16817 type(wcauchy_type) , intent(in) :: help
16818 real(RKC) , intent(out) :: integral, abserr
16819 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16820 integer(IK) , intent(out) , contiguous :: sindex(:)
16821 integer(IK) , intent(out) :: neval
16822 integer(IK) , intent(out) :: nint
16823 integer(IK) :: err
16824 end function
16825#endif
16826
16827#if RK3_ENABLED
16828 module function QAWC_GK21_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16830 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK3
16831#endif
16832 use pm_kind, only: RKC => RK3
16833 procedure(real(RKC)) :: getFunc
16834 type(ninf_type) , intent(in) :: lb
16835 real(RKC) , intent(in) :: ub
16836 real(RKC) , intent(in) :: abstol
16837 real(RKC) , intent(in) :: reltol
16838 type(GK21_type) , intent(in) :: qrule
16839 type(wcauchy_type) , intent(in) :: help
16840 real(RKC) , intent(out) :: integral, abserr
16841 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16842 integer(IK) , intent(out) , contiguous :: sindex(:)
16843 integer(IK) , intent(out) :: neval
16844 integer(IK) , intent(out) :: nint
16845 integer(IK) :: err
16846 end function
16847#endif
16848
16849#if RK2_ENABLED
16850 module function QAWC_GK21_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16852 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK2
16853#endif
16854 use pm_kind, only: RKC => RK2
16855 procedure(real(RKC)) :: getFunc
16856 type(ninf_type) , intent(in) :: lb
16857 real(RKC) , intent(in) :: ub
16858 real(RKC) , intent(in) :: abstol
16859 real(RKC) , intent(in) :: reltol
16860 type(GK21_type) , intent(in) :: qrule
16861 type(wcauchy_type) , intent(in) :: help
16862 real(RKC) , intent(out) :: integral, abserr
16863 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16864 integer(IK) , intent(out) , contiguous :: sindex(:)
16865 integer(IK) , intent(out) :: neval
16866 integer(IK) , intent(out) :: nint
16867 integer(IK) :: err
16868 end function
16869#endif
16870
16871#if RK1_ENABLED
16872 module function QAWC_GK21_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16874 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_IF_RK1
16875#endif
16876 use pm_kind, only: RKC => RK1
16877 procedure(real(RKC)) :: getFunc
16878 type(ninf_type) , intent(in) :: lb
16879 real(RKC) , intent(in) :: ub
16880 real(RKC) , intent(in) :: abstol
16881 real(RKC) , intent(in) :: reltol
16882 type(GK21_type) , intent(in) :: qrule
16883 type(wcauchy_type) , intent(in) :: help
16884 real(RKC) , intent(out) :: integral, abserr
16885 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16886 integer(IK) , intent(out) , contiguous :: sindex(:)
16887 integer(IK) , intent(out) :: neval
16888 integer(IK) , intent(out) :: nint
16889 integer(IK) :: err
16890 end function
16891#endif
16892
16893 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
16894
16895#if RK5_ENABLED
16896 module function QAWC_GK31_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16898 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK5
16899#endif
16900 use pm_kind, only: RKC => RK5
16901 procedure(real(RKC)) :: getFunc
16902 type(ninf_type) , intent(in) :: lb
16903 real(RKC) , intent(in) :: ub
16904 real(RKC) , intent(in) :: abstol
16905 real(RKC) , intent(in) :: reltol
16906 type(GK31_type) , intent(in) :: qrule
16907 type(wcauchy_type) , intent(in) :: help
16908 real(RKC) , intent(out) :: integral, abserr
16909 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16910 integer(IK) , intent(out) , contiguous :: sindex(:)
16911 integer(IK) , intent(out) :: neval
16912 integer(IK) , intent(out) :: nint
16913 integer(IK) :: err
16914 end function
16915#endif
16916
16917#if RK4_ENABLED
16918 module function QAWC_GK31_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16920 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK4
16921#endif
16922 use pm_kind, only: RKC => RK4
16923 procedure(real(RKC)) :: getFunc
16924 type(ninf_type) , intent(in) :: lb
16925 real(RKC) , intent(in) :: ub
16926 real(RKC) , intent(in) :: abstol
16927 real(RKC) , intent(in) :: reltol
16928 type(GK31_type) , intent(in) :: qrule
16929 type(wcauchy_type) , intent(in) :: help
16930 real(RKC) , intent(out) :: integral, abserr
16931 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16932 integer(IK) , intent(out) , contiguous :: sindex(:)
16933 integer(IK) , intent(out) :: neval
16934 integer(IK) , intent(out) :: nint
16935 integer(IK) :: err
16936 end function
16937#endif
16938
16939#if RK3_ENABLED
16940 module function QAWC_GK31_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16942 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK3
16943#endif
16944 use pm_kind, only: RKC => RK3
16945 procedure(real(RKC)) :: getFunc
16946 type(ninf_type) , intent(in) :: lb
16947 real(RKC) , intent(in) :: ub
16948 real(RKC) , intent(in) :: abstol
16949 real(RKC) , intent(in) :: reltol
16950 type(GK31_type) , intent(in) :: qrule
16951 type(wcauchy_type) , intent(in) :: help
16952 real(RKC) , intent(out) :: integral, abserr
16953 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16954 integer(IK) , intent(out) , contiguous :: sindex(:)
16955 integer(IK) , intent(out) :: neval
16956 integer(IK) , intent(out) :: nint
16957 integer(IK) :: err
16958 end function
16959#endif
16960
16961#if RK2_ENABLED
16962 module function QAWC_GK31_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16964 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK2
16965#endif
16966 use pm_kind, only: RKC => RK2
16967 procedure(real(RKC)) :: getFunc
16968 type(ninf_type) , intent(in) :: lb
16969 real(RKC) , intent(in) :: ub
16970 real(RKC) , intent(in) :: abstol
16971 real(RKC) , intent(in) :: reltol
16972 type(GK31_type) , intent(in) :: qrule
16973 type(wcauchy_type) , intent(in) :: help
16974 real(RKC) , intent(out) :: integral, abserr
16975 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16976 integer(IK) , intent(out) , contiguous :: sindex(:)
16977 integer(IK) , intent(out) :: neval
16978 integer(IK) , intent(out) :: nint
16979 integer(IK) :: err
16980 end function
16981#endif
16982
16983#if RK1_ENABLED
16984 module function QAWC_GK31_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
16985#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
16986 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_IF_RK1
16987#endif
16988 use pm_kind, only: RKC => RK1
16989 procedure(real(RKC)) :: getFunc
16990 type(ninf_type) , intent(in) :: lb
16991 real(RKC) , intent(in) :: ub
16992 real(RKC) , intent(in) :: abstol
16993 real(RKC) , intent(in) :: reltol
16994 type(GK31_type) , intent(in) :: qrule
16995 type(wcauchy_type) , intent(in) :: help
16996 real(RKC) , intent(out) :: integral, abserr
16997 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
16998 integer(IK) , intent(out) , contiguous :: sindex(:)
16999 integer(IK) , intent(out) :: neval
17000 integer(IK) , intent(out) :: nint
17001 integer(IK) :: err
17002 end function
17003#endif
17004
17005 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17006
17007#if RK5_ENABLED
17008 module function QAWC_GK41_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17009#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17010 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK5
17011#endif
17012 use pm_kind, only: RKC => RK5
17013 procedure(real(RKC)) :: getFunc
17014 type(ninf_type) , intent(in) :: lb
17015 real(RKC) , intent(in) :: ub
17016 real(RKC) , intent(in) :: abstol
17017 real(RKC) , intent(in) :: reltol
17018 type(GK41_type) , intent(in) :: qrule
17019 type(wcauchy_type) , intent(in) :: help
17020 real(RKC) , intent(out) :: integral, abserr
17021 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17022 integer(IK) , intent(out) , contiguous :: sindex(:)
17023 integer(IK) , intent(out) :: neval
17024 integer(IK) , intent(out) :: nint
17025 integer(IK) :: err
17026 end function
17027#endif
17028
17029#if RK4_ENABLED
17030 module function QAWC_GK41_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17032 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK4
17033#endif
17034 use pm_kind, only: RKC => RK4
17035 procedure(real(RKC)) :: getFunc
17036 type(ninf_type) , intent(in) :: lb
17037 real(RKC) , intent(in) :: ub
17038 real(RKC) , intent(in) :: abstol
17039 real(RKC) , intent(in) :: reltol
17040 type(GK41_type) , intent(in) :: qrule
17041 type(wcauchy_type) , intent(in) :: help
17042 real(RKC) , intent(out) :: integral, abserr
17043 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17044 integer(IK) , intent(out) , contiguous :: sindex(:)
17045 integer(IK) , intent(out) :: neval
17046 integer(IK) , intent(out) :: nint
17047 integer(IK) :: err
17048 end function
17049#endif
17050
17051#if RK3_ENABLED
17052 module function QAWC_GK41_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17054 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK3
17055#endif
17056 use pm_kind, only: RKC => RK3
17057 procedure(real(RKC)) :: getFunc
17058 type(ninf_type) , intent(in) :: lb
17059 real(RKC) , intent(in) :: ub
17060 real(RKC) , intent(in) :: abstol
17061 real(RKC) , intent(in) :: reltol
17062 type(GK41_type) , intent(in) :: qrule
17063 type(wcauchy_type) , intent(in) :: help
17064 real(RKC) , intent(out) :: integral, abserr
17065 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17066 integer(IK) , intent(out) , contiguous :: sindex(:)
17067 integer(IK) , intent(out) :: neval
17068 integer(IK) , intent(out) :: nint
17069 integer(IK) :: err
17070 end function
17071#endif
17072
17073#if RK2_ENABLED
17074 module function QAWC_GK41_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17076 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK2
17077#endif
17078 use pm_kind, only: RKC => RK2
17079 procedure(real(RKC)) :: getFunc
17080 type(ninf_type) , intent(in) :: lb
17081 real(RKC) , intent(in) :: ub
17082 real(RKC) , intent(in) :: abstol
17083 real(RKC) , intent(in) :: reltol
17084 type(GK41_type) , intent(in) :: qrule
17085 type(wcauchy_type) , intent(in) :: help
17086 real(RKC) , intent(out) :: integral, abserr
17087 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17088 integer(IK) , intent(out) , contiguous :: sindex(:)
17089 integer(IK) , intent(out) :: neval
17090 integer(IK) , intent(out) :: nint
17091 integer(IK) :: err
17092 end function
17093#endif
17094
17095#if RK1_ENABLED
17096 module function QAWC_GK41_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17098 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_IF_RK1
17099#endif
17100 use pm_kind, only: RKC => RK1
17101 procedure(real(RKC)) :: getFunc
17102 type(ninf_type) , intent(in) :: lb
17103 real(RKC) , intent(in) :: ub
17104 real(RKC) , intent(in) :: abstol
17105 real(RKC) , intent(in) :: reltol
17106 type(GK41_type) , intent(in) :: qrule
17107 type(wcauchy_type) , intent(in) :: help
17108 real(RKC) , intent(out) :: integral, abserr
17109 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17110 integer(IK) , intent(out) , contiguous :: sindex(:)
17111 integer(IK) , intent(out) :: neval
17112 integer(IK) , intent(out) :: nint
17113 integer(IK) :: err
17114 end function
17115#endif
17116
17117 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17118
17119#if RK5_ENABLED
17120 module function QAWC_GK51_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17121#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17122 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK5
17123#endif
17124 use pm_kind, only: RKC => RK5
17125 procedure(real(RKC)) :: getFunc
17126 type(ninf_type) , intent(in) :: lb
17127 real(RKC) , intent(in) :: ub
17128 real(RKC) , intent(in) :: abstol
17129 real(RKC) , intent(in) :: reltol
17130 type(GK51_type) , intent(in) :: qrule
17131 type(wcauchy_type) , intent(in) :: help
17132 real(RKC) , intent(out) :: integral, abserr
17133 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17134 integer(IK) , intent(out) , contiguous :: sindex(:)
17135 integer(IK) , intent(out) :: neval
17136 integer(IK) , intent(out) :: nint
17137 integer(IK) :: err
17138 end function
17139#endif
17140
17141#if RK4_ENABLED
17142 module function QAWC_GK51_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17144 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK4
17145#endif
17146 use pm_kind, only: RKC => RK4
17147 procedure(real(RKC)) :: getFunc
17148 type(ninf_type) , intent(in) :: lb
17149 real(RKC) , intent(in) :: ub
17150 real(RKC) , intent(in) :: abstol
17151 real(RKC) , intent(in) :: reltol
17152 type(GK51_type) , intent(in) :: qrule
17153 type(wcauchy_type) , intent(in) :: help
17154 real(RKC) , intent(out) :: integral, abserr
17155 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17156 integer(IK) , intent(out) , contiguous :: sindex(:)
17157 integer(IK) , intent(out) :: neval
17158 integer(IK) , intent(out) :: nint
17159 integer(IK) :: err
17160 end function
17161#endif
17162
17163#if RK3_ENABLED
17164 module function QAWC_GK51_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17166 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK3
17167#endif
17168 use pm_kind, only: RKC => RK3
17169 procedure(real(RKC)) :: getFunc
17170 type(ninf_type) , intent(in) :: lb
17171 real(RKC) , intent(in) :: ub
17172 real(RKC) , intent(in) :: abstol
17173 real(RKC) , intent(in) :: reltol
17174 type(GK51_type) , intent(in) :: qrule
17175 type(wcauchy_type) , intent(in) :: help
17176 real(RKC) , intent(out) :: integral, abserr
17177 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17178 integer(IK) , intent(out) , contiguous :: sindex(:)
17179 integer(IK) , intent(out) :: neval
17180 integer(IK) , intent(out) :: nint
17181 integer(IK) :: err
17182 end function
17183#endif
17184
17185#if RK2_ENABLED
17186 module function QAWC_GK51_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17188 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK2
17189#endif
17190 use pm_kind, only: RKC => RK2
17191 procedure(real(RKC)) :: getFunc
17192 type(ninf_type) , intent(in) :: lb
17193 real(RKC) , intent(in) :: ub
17194 real(RKC) , intent(in) :: abstol
17195 real(RKC) , intent(in) :: reltol
17196 type(GK51_type) , intent(in) :: qrule
17197 type(wcauchy_type) , intent(in) :: help
17198 real(RKC) , intent(out) :: integral, abserr
17199 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17200 integer(IK) , intent(out) , contiguous :: sindex(:)
17201 integer(IK) , intent(out) :: neval
17202 integer(IK) , intent(out) :: nint
17203 integer(IK) :: err
17204 end function
17205#endif
17206
17207#if RK1_ENABLED
17208 module function QAWC_GK51_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17210 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_IF_RK1
17211#endif
17212 use pm_kind, only: RKC => RK1
17213 procedure(real(RKC)) :: getFunc
17214 type(ninf_type) , intent(in) :: lb
17215 real(RKC) , intent(in) :: ub
17216 real(RKC) , intent(in) :: abstol
17217 real(RKC) , intent(in) :: reltol
17218 type(GK51_type) , intent(in) :: qrule
17219 type(wcauchy_type) , intent(in) :: help
17220 real(RKC) , intent(out) :: integral, abserr
17221 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17222 integer(IK) , intent(out) , contiguous :: sindex(:)
17223 integer(IK) , intent(out) :: neval
17224 integer(IK) , intent(out) :: nint
17225 integer(IK) :: err
17226 end function
17227#endif
17228
17229 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17230
17231#if RK5_ENABLED
17232 module function QAWC_GK61_IF_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17233#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17234 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK5
17235#endif
17236 use pm_kind, only: RKC => RK5
17237 procedure(real(RKC)) :: getFunc
17238 type(ninf_type) , intent(in) :: lb
17239 real(RKC) , intent(in) :: ub
17240 real(RKC) , intent(in) :: abstol
17241 real(RKC) , intent(in) :: reltol
17242 type(GK61_type) , intent(in) :: qrule
17243 type(wcauchy_type) , intent(in) :: help
17244 real(RKC) , intent(out) :: integral, abserr
17245 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17246 integer(IK) , intent(out) , contiguous :: sindex(:)
17247 integer(IK) , intent(out) :: neval
17248 integer(IK) , intent(out) :: nint
17249 integer(IK) :: err
17250 end function
17251#endif
17252
17253#if RK4_ENABLED
17254 module function QAWC_GK61_IF_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17256 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK4
17257#endif
17258 use pm_kind, only: RKC => RK4
17259 procedure(real(RKC)) :: getFunc
17260 type(ninf_type) , intent(in) :: lb
17261 real(RKC) , intent(in) :: ub
17262 real(RKC) , intent(in) :: abstol
17263 real(RKC) , intent(in) :: reltol
17264 type(GK61_type) , intent(in) :: qrule
17265 type(wcauchy_type) , intent(in) :: help
17266 real(RKC) , intent(out) :: integral, abserr
17267 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17268 integer(IK) , intent(out) , contiguous :: sindex(:)
17269 integer(IK) , intent(out) :: neval
17270 integer(IK) , intent(out) :: nint
17271 integer(IK) :: err
17272 end function
17273#endif
17274
17275#if RK3_ENABLED
17276 module function QAWC_GK61_IF_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17278 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK3
17279#endif
17280 use pm_kind, only: RKC => RK3
17281 procedure(real(RKC)) :: getFunc
17282 type(ninf_type) , intent(in) :: lb
17283 real(RKC) , intent(in) :: ub
17284 real(RKC) , intent(in) :: abstol
17285 real(RKC) , intent(in) :: reltol
17286 type(GK61_type) , intent(in) :: qrule
17287 type(wcauchy_type) , intent(in) :: help
17288 real(RKC) , intent(out) :: integral, abserr
17289 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17290 integer(IK) , intent(out) , contiguous :: sindex(:)
17291 integer(IK) , intent(out) :: neval
17292 integer(IK) , intent(out) :: nint
17293 integer(IK) :: err
17294 end function
17295#endif
17296
17297#if RK2_ENABLED
17298 module function QAWC_GK61_IF_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17300 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK2
17301#endif
17302 use pm_kind, only: RKC => RK2
17303 procedure(real(RKC)) :: getFunc
17304 type(ninf_type) , intent(in) :: lb
17305 real(RKC) , intent(in) :: ub
17306 real(RKC) , intent(in) :: abstol
17307 real(RKC) , intent(in) :: reltol
17308 type(GK61_type) , intent(in) :: qrule
17309 type(wcauchy_type) , intent(in) :: help
17310 real(RKC) , intent(out) :: integral, abserr
17311 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17312 integer(IK) , intent(out) , contiguous :: sindex(:)
17313 integer(IK) , intent(out) :: neval
17314 integer(IK) , intent(out) :: nint
17315 integer(IK) :: err
17316 end function
17317#endif
17318
17319#if RK1_ENABLED
17320 module function QAWC_GK61_IF_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17322 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_IF_RK1
17323#endif
17324 use pm_kind, only: RKC => RK1
17325 procedure(real(RKC)) :: getFunc
17326 type(ninf_type) , intent(in) :: lb
17327 real(RKC) , intent(in) :: ub
17328 real(RKC) , intent(in) :: abstol
17329 real(RKC) , intent(in) :: reltol
17330 type(GK61_type) , intent(in) :: qrule
17331 type(wcauchy_type) , intent(in) :: help
17332 real(RKC) , intent(out) :: integral, abserr
17333 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17334 integer(IK) , intent(out) , contiguous :: sindex(:)
17335 integer(IK) , intent(out) :: neval
17336 integer(IK) , intent(out) :: nint
17337 integer(IK) :: err
17338 end function
17339#endif
17340
17341 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17342
17343#if RK5_ENABLED
17344 module function QAWC_GKXX_IF_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17346 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK5
17347#endif
17348 use pm_kind, only: RKC => RK5
17349 procedure(real(RKC)) :: getFunc
17350 type(ninf_type) , intent(in) :: lb
17351 real(RKC) , intent(in) :: ub
17352 real(RKC) , intent(in) :: abstol
17353 real(RKC) , intent(in) :: reltol
17354 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17355 type(wcauchy_type) , intent(in) :: help
17356 real(RKC) , intent(out) :: integral, abserr
17357 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17358 integer(IK) , intent(out) , contiguous :: sindex(:)
17359 integer(IK) , intent(out) :: neval
17360 integer(IK) , intent(out) :: nint
17361 integer(IK) :: err
17362 end function
17363#endif
17364
17365#if RK4_ENABLED
17366 module function QAWC_GKXX_IF_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17367#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17368 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK4
17369#endif
17370 use pm_kind, only: RKC => RK4
17371 procedure(real(RKC)) :: getFunc
17372 type(ninf_type) , intent(in) :: lb
17373 real(RKC) , intent(in) :: ub
17374 real(RKC) , intent(in) :: abstol
17375 real(RKC) , intent(in) :: reltol
17376 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17377 type(wcauchy_type) , intent(in) :: help
17378 real(RKC) , intent(out) :: integral, abserr
17379 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17380 integer(IK) , intent(out) , contiguous :: sindex(:)
17381 integer(IK) , intent(out) :: neval
17382 integer(IK) , intent(out) :: nint
17383 integer(IK) :: err
17384 end function
17385#endif
17386
17387#if RK3_ENABLED
17388 module function QAWC_GKXX_IF_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17389#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17390 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK3
17391#endif
17392 use pm_kind, only: RKC => RK3
17393 procedure(real(RKC)) :: getFunc
17394 type(ninf_type) , intent(in) :: lb
17395 real(RKC) , intent(in) :: ub
17396 real(RKC) , intent(in) :: abstol
17397 real(RKC) , intent(in) :: reltol
17398 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17399 type(wcauchy_type) , intent(in) :: help
17400 real(RKC) , intent(out) :: integral, abserr
17401 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17402 integer(IK) , intent(out) , contiguous :: sindex(:)
17403 integer(IK) , intent(out) :: neval
17404 integer(IK) , intent(out) :: nint
17405 integer(IK) :: err
17406 end function
17407#endif
17408
17409#if RK2_ENABLED
17410 module function QAWC_GKXX_IF_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17412 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK2
17413#endif
17414 use pm_kind, only: RKC => RK2
17415 procedure(real(RKC)) :: getFunc
17416 type(ninf_type) , intent(in) :: lb
17417 real(RKC) , intent(in) :: ub
17418 real(RKC) , intent(in) :: abstol
17419 real(RKC) , intent(in) :: reltol
17420 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17421 type(wcauchy_type) , intent(in) :: help
17422 real(RKC) , intent(out) :: integral, abserr
17423 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17424 integer(IK) , intent(out) , contiguous :: sindex(:)
17425 integer(IK) , intent(out) :: neval
17426 integer(IK) , intent(out) :: nint
17427 integer(IK) :: err
17428 end function
17429#endif
17430
17431#if RK1_ENABLED
17432 module function QAWC_GKXX_IF_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17433#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17434 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_IF_RK1
17435#endif
17436 use pm_kind, only: RKC => RK1
17437 procedure(real(RKC)) :: getFunc
17438 type(ninf_type) , intent(in) :: lb
17439 real(RKC) , intent(in) :: ub
17440 real(RKC) , intent(in) :: abstol
17441 real(RKC) , intent(in) :: reltol
17442 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
17443 type(wcauchy_type) , intent(in) :: help
17444 real(RKC) , intent(out) :: integral, abserr
17445 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17446 integer(IK) , intent(out) , contiguous :: sindex(:)
17447 integer(IK) , intent(out) :: neval
17448 integer(IK) , intent(out) :: nint
17449 integer(IK) :: err
17450 end function
17451#endif
17452
17453 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17454
17455 end interface
17456
17457 ! QAWC II
17458
17459 interface getQuadErr
17460
17461 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17462
17463#if RK5_ENABLED
17464 module function QAWC_GK15_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17466 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK5
17467#endif
17468 use pm_kind, only: RKC => RK5
17469 procedure(real(RKC)) :: getFunc
17470 type(ninf_type) , intent(in) :: lb
17471 type(pinf_type) , intent(in) :: ub
17472 real(RKC) , intent(in) :: abstol
17473 real(RKC) , intent(in) :: reltol
17474 type(GK15_type) , intent(in) :: qrule
17475 type(wcauchy_type) , intent(in) :: help
17476 real(RKC) , intent(out) :: integral, abserr
17477 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17478 integer(IK) , intent(out) , contiguous :: sindex(:)
17479 integer(IK) , intent(out) :: neval
17480 integer(IK) , intent(out) :: nint
17481 integer(IK) :: err
17482 end function
17483#endif
17484
17485#if RK4_ENABLED
17486 module function QAWC_GK15_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17487#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17488 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK4
17489#endif
17490 use pm_kind, only: RKC => RK4
17491 procedure(real(RKC)) :: getFunc
17492 type(ninf_type) , intent(in) :: lb
17493 type(pinf_type) , intent(in) :: ub
17494 real(RKC) , intent(in) :: abstol
17495 real(RKC) , intent(in) :: reltol
17496 type(GK15_type) , intent(in) :: qrule
17497 type(wcauchy_type) , intent(in) :: help
17498 real(RKC) , intent(out) :: integral, abserr
17499 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17500 integer(IK) , intent(out) , contiguous :: sindex(:)
17501 integer(IK) , intent(out) :: neval
17502 integer(IK) , intent(out) :: nint
17503 integer(IK) :: err
17504 end function
17505#endif
17506
17507#if RK3_ENABLED
17508 module function QAWC_GK15_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17510 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK3
17511#endif
17512 use pm_kind, only: RKC => RK3
17513 procedure(real(RKC)) :: getFunc
17514 type(ninf_type) , intent(in) :: lb
17515 type(pinf_type) , intent(in) :: ub
17516 real(RKC) , intent(in) :: abstol
17517 real(RKC) , intent(in) :: reltol
17518 type(GK15_type) , intent(in) :: qrule
17519 type(wcauchy_type) , intent(in) :: help
17520 real(RKC) , intent(out) :: integral, abserr
17521 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17522 integer(IK) , intent(out) , contiguous :: sindex(:)
17523 integer(IK) , intent(out) :: neval
17524 integer(IK) , intent(out) :: nint
17525 integer(IK) :: err
17526 end function
17527#endif
17528
17529#if RK2_ENABLED
17530 module function QAWC_GK15_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17532 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK2
17533#endif
17534 use pm_kind, only: RKC => RK2
17535 procedure(real(RKC)) :: getFunc
17536 type(ninf_type) , intent(in) :: lb
17537 type(pinf_type) , intent(in) :: ub
17538 real(RKC) , intent(in) :: abstol
17539 real(RKC) , intent(in) :: reltol
17540 type(GK15_type) , intent(in) :: qrule
17541 type(wcauchy_type) , intent(in) :: help
17542 real(RKC) , intent(out) :: integral, abserr
17543 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17544 integer(IK) , intent(out) , contiguous :: sindex(:)
17545 integer(IK) , intent(out) :: neval
17546 integer(IK) , intent(out) :: nint
17547 integer(IK) :: err
17548 end function
17549#endif
17550
17551#if RK1_ENABLED
17552 module function QAWC_GK15_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17554 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK15_II_RK1
17555#endif
17556 use pm_kind, only: RKC => RK1
17557 procedure(real(RKC)) :: getFunc
17558 type(ninf_type) , intent(in) :: lb
17559 type(pinf_type) , intent(in) :: ub
17560 real(RKC) , intent(in) :: abstol
17561 real(RKC) , intent(in) :: reltol
17562 type(GK15_type) , intent(in) :: qrule
17563 type(wcauchy_type) , intent(in) :: help
17564 real(RKC) , intent(out) :: integral, abserr
17565 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17566 integer(IK) , intent(out) , contiguous :: sindex(:)
17567 integer(IK) , intent(out) :: neval
17568 integer(IK) , intent(out) :: nint
17569 integer(IK) :: err
17570 end function
17571#endif
17572
17573 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17574
17575#if RK5_ENABLED
17576 module function QAWC_GK21_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17577#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17578 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK5
17579#endif
17580 use pm_kind, only: RKC => RK5
17581 procedure(real(RKC)) :: getFunc
17582 type(ninf_type) , intent(in) :: lb
17583 type(pinf_type) , intent(in) :: ub
17584 real(RKC) , intent(in) :: abstol
17585 real(RKC) , intent(in) :: reltol
17586 type(GK21_type) , intent(in) :: qrule
17587 type(wcauchy_type) , intent(in) :: help
17588 real(RKC) , intent(out) :: integral, abserr
17589 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17590 integer(IK) , intent(out) , contiguous :: sindex(:)
17591 integer(IK) , intent(out) :: neval
17592 integer(IK) , intent(out) :: nint
17593 integer(IK) :: err
17594 end function
17595#endif
17596
17597#if RK4_ENABLED
17598 module function QAWC_GK21_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17599#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17600 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK4
17601#endif
17602 use pm_kind, only: RKC => RK4
17603 procedure(real(RKC)) :: getFunc
17604 type(ninf_type) , intent(in) :: lb
17605 type(pinf_type) , intent(in) :: ub
17606 real(RKC) , intent(in) :: abstol
17607 real(RKC) , intent(in) :: reltol
17608 type(GK21_type) , intent(in) :: qrule
17609 type(wcauchy_type) , intent(in) :: help
17610 real(RKC) , intent(out) :: integral, abserr
17611 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17612 integer(IK) , intent(out) , contiguous :: sindex(:)
17613 integer(IK) , intent(out) :: neval
17614 integer(IK) , intent(out) :: nint
17615 integer(IK) :: err
17616 end function
17617#endif
17618
17619#if RK3_ENABLED
17620 module function QAWC_GK21_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17622 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK3
17623#endif
17624 use pm_kind, only: RKC => RK3
17625 procedure(real(RKC)) :: getFunc
17626 type(ninf_type) , intent(in) :: lb
17627 type(pinf_type) , intent(in) :: ub
17628 real(RKC) , intent(in) :: abstol
17629 real(RKC) , intent(in) :: reltol
17630 type(GK21_type) , intent(in) :: qrule
17631 type(wcauchy_type) , intent(in) :: help
17632 real(RKC) , intent(out) :: integral, abserr
17633 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17634 integer(IK) , intent(out) , contiguous :: sindex(:)
17635 integer(IK) , intent(out) :: neval
17636 integer(IK) , intent(out) :: nint
17637 integer(IK) :: err
17638 end function
17639#endif
17640
17641#if RK2_ENABLED
17642 module function QAWC_GK21_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17644 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK2
17645#endif
17646 use pm_kind, only: RKC => RK2
17647 procedure(real(RKC)) :: getFunc
17648 type(ninf_type) , intent(in) :: lb
17649 type(pinf_type) , intent(in) :: ub
17650 real(RKC) , intent(in) :: abstol
17651 real(RKC) , intent(in) :: reltol
17652 type(GK21_type) , intent(in) :: qrule
17653 type(wcauchy_type) , intent(in) :: help
17654 real(RKC) , intent(out) :: integral, abserr
17655 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17656 integer(IK) , intent(out) , contiguous :: sindex(:)
17657 integer(IK) , intent(out) :: neval
17658 integer(IK) , intent(out) :: nint
17659 integer(IK) :: err
17660 end function
17661#endif
17662
17663#if RK1_ENABLED
17664 module function QAWC_GK21_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17666 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK21_II_RK1
17667#endif
17668 use pm_kind, only: RKC => RK1
17669 procedure(real(RKC)) :: getFunc
17670 type(ninf_type) , intent(in) :: lb
17671 type(pinf_type) , intent(in) :: ub
17672 real(RKC) , intent(in) :: abstol
17673 real(RKC) , intent(in) :: reltol
17674 type(GK21_type) , intent(in) :: qrule
17675 type(wcauchy_type) , intent(in) :: help
17676 real(RKC) , intent(out) :: integral, abserr
17677 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17678 integer(IK) , intent(out) , contiguous :: sindex(:)
17679 integer(IK) , intent(out) :: neval
17680 integer(IK) , intent(out) :: nint
17681 integer(IK) :: err
17682 end function
17683#endif
17684
17685 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17686
17687#if RK5_ENABLED
17688 module function QAWC_GK31_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17690 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK5
17691#endif
17692 use pm_kind, only: RKC => RK5
17693 procedure(real(RKC)) :: getFunc
17694 type(ninf_type) , intent(in) :: lb
17695 type(pinf_type) , intent(in) :: ub
17696 real(RKC) , intent(in) :: abstol
17697 real(RKC) , intent(in) :: reltol
17698 type(GK31_type) , intent(in) :: qrule
17699 type(wcauchy_type) , intent(in) :: help
17700 real(RKC) , intent(out) :: integral, abserr
17701 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17702 integer(IK) , intent(out) , contiguous :: sindex(:)
17703 integer(IK) , intent(out) :: neval
17704 integer(IK) , intent(out) :: nint
17705 integer(IK) :: err
17706 end function
17707#endif
17708
17709#if RK4_ENABLED
17710 module function QAWC_GK31_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17711#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17712 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK4
17713#endif
17714 use pm_kind, only: RKC => RK4
17715 procedure(real(RKC)) :: getFunc
17716 type(ninf_type) , intent(in) :: lb
17717 type(pinf_type) , intent(in) :: ub
17718 real(RKC) , intent(in) :: abstol
17719 real(RKC) , intent(in) :: reltol
17720 type(GK31_type) , intent(in) :: qrule
17721 type(wcauchy_type) , intent(in) :: help
17722 real(RKC) , intent(out) :: integral, abserr
17723 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17724 integer(IK) , intent(out) , contiguous :: sindex(:)
17725 integer(IK) , intent(out) :: neval
17726 integer(IK) , intent(out) :: nint
17727 integer(IK) :: err
17728 end function
17729#endif
17730
17731#if RK3_ENABLED
17732 module function QAWC_GK31_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17734 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK3
17735#endif
17736 use pm_kind, only: RKC => RK3
17737 procedure(real(RKC)) :: getFunc
17738 type(ninf_type) , intent(in) :: lb
17739 type(pinf_type) , intent(in) :: ub
17740 real(RKC) , intent(in) :: abstol
17741 real(RKC) , intent(in) :: reltol
17742 type(GK31_type) , intent(in) :: qrule
17743 type(wcauchy_type) , intent(in) :: help
17744 real(RKC) , intent(out) :: integral, abserr
17745 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17746 integer(IK) , intent(out) , contiguous :: sindex(:)
17747 integer(IK) , intent(out) :: neval
17748 integer(IK) , intent(out) :: nint
17749 integer(IK) :: err
17750 end function
17751#endif
17752
17753#if RK2_ENABLED
17754 module function QAWC_GK31_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17755#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17756 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK2
17757#endif
17758 use pm_kind, only: RKC => RK2
17759 procedure(real(RKC)) :: getFunc
17760 type(ninf_type) , intent(in) :: lb
17761 type(pinf_type) , intent(in) :: ub
17762 real(RKC) , intent(in) :: abstol
17763 real(RKC) , intent(in) :: reltol
17764 type(GK31_type) , intent(in) :: qrule
17765 type(wcauchy_type) , intent(in) :: help
17766 real(RKC) , intent(out) :: integral, abserr
17767 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17768 integer(IK) , intent(out) , contiguous :: sindex(:)
17769 integer(IK) , intent(out) :: neval
17770 integer(IK) , intent(out) :: nint
17771 integer(IK) :: err
17772 end function
17773#endif
17774
17775#if RK1_ENABLED
17776 module function QAWC_GK31_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17777#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17778 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK31_II_RK1
17779#endif
17780 use pm_kind, only: RKC => RK1
17781 procedure(real(RKC)) :: getFunc
17782 type(ninf_type) , intent(in) :: lb
17783 type(pinf_type) , intent(in) :: ub
17784 real(RKC) , intent(in) :: abstol
17785 real(RKC) , intent(in) :: reltol
17786 type(GK31_type) , intent(in) :: qrule
17787 type(wcauchy_type) , intent(in) :: help
17788 real(RKC) , intent(out) :: integral, abserr
17789 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17790 integer(IK) , intent(out) , contiguous :: sindex(:)
17791 integer(IK) , intent(out) :: neval
17792 integer(IK) , intent(out) :: nint
17793 integer(IK) :: err
17794 end function
17795#endif
17796
17797 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17798
17799#if RK5_ENABLED
17800 module function QAWC_GK41_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17802 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK5
17803#endif
17804 use pm_kind, only: RKC => RK5
17805 procedure(real(RKC)) :: getFunc
17806 type(ninf_type) , intent(in) :: lb
17807 type(pinf_type) , intent(in) :: ub
17808 real(RKC) , intent(in) :: abstol
17809 real(RKC) , intent(in) :: reltol
17810 type(GK41_type) , intent(in) :: qrule
17811 type(wcauchy_type) , intent(in) :: help
17812 real(RKC) , intent(out) :: integral, abserr
17813 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17814 integer(IK) , intent(out) , contiguous :: sindex(:)
17815 integer(IK) , intent(out) :: neval
17816 integer(IK) , intent(out) :: nint
17817 integer(IK) :: err
17818 end function
17819#endif
17820
17821#if RK4_ENABLED
17822 module function QAWC_GK41_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17823#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17824 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK4
17825#endif
17826 use pm_kind, only: RKC => RK4
17827 procedure(real(RKC)) :: getFunc
17828 type(ninf_type) , intent(in) :: lb
17829 type(pinf_type) , intent(in) :: ub
17830 real(RKC) , intent(in) :: abstol
17831 real(RKC) , intent(in) :: reltol
17832 type(GK41_type) , intent(in) :: qrule
17833 type(wcauchy_type) , intent(in) :: help
17834 real(RKC) , intent(out) :: integral, abserr
17835 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17836 integer(IK) , intent(out) , contiguous :: sindex(:)
17837 integer(IK) , intent(out) :: neval
17838 integer(IK) , intent(out) :: nint
17839 integer(IK) :: err
17840 end function
17841#endif
17842
17843#if RK3_ENABLED
17844 module function QAWC_GK41_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17846 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK3
17847#endif
17848 use pm_kind, only: RKC => RK3
17849 procedure(real(RKC)) :: getFunc
17850 type(ninf_type) , intent(in) :: lb
17851 type(pinf_type) , intent(in) :: ub
17852 real(RKC) , intent(in) :: abstol
17853 real(RKC) , intent(in) :: reltol
17854 type(GK41_type) , intent(in) :: qrule
17855 type(wcauchy_type) , intent(in) :: help
17856 real(RKC) , intent(out) :: integral, abserr
17857 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17858 integer(IK) , intent(out) , contiguous :: sindex(:)
17859 integer(IK) , intent(out) :: neval
17860 integer(IK) , intent(out) :: nint
17861 integer(IK) :: err
17862 end function
17863#endif
17864
17865#if RK2_ENABLED
17866 module function QAWC_GK41_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17867#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17868 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK2
17869#endif
17870 use pm_kind, only: RKC => RK2
17871 procedure(real(RKC)) :: getFunc
17872 type(ninf_type) , intent(in) :: lb
17873 type(pinf_type) , intent(in) :: ub
17874 real(RKC) , intent(in) :: abstol
17875 real(RKC) , intent(in) :: reltol
17876 type(GK41_type) , intent(in) :: qrule
17877 type(wcauchy_type) , intent(in) :: help
17878 real(RKC) , intent(out) :: integral, abserr
17879 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17880 integer(IK) , intent(out) , contiguous :: sindex(:)
17881 integer(IK) , intent(out) :: neval
17882 integer(IK) , intent(out) :: nint
17883 integer(IK) :: err
17884 end function
17885#endif
17886
17887#if RK1_ENABLED
17888 module function QAWC_GK41_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17890 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK41_II_RK1
17891#endif
17892 use pm_kind, only: RKC => RK1
17893 procedure(real(RKC)) :: getFunc
17894 type(ninf_type) , intent(in) :: lb
17895 type(pinf_type) , intent(in) :: ub
17896 real(RKC) , intent(in) :: abstol
17897 real(RKC) , intent(in) :: reltol
17898 type(GK41_type) , intent(in) :: qrule
17899 type(wcauchy_type) , intent(in) :: help
17900 real(RKC) , intent(out) :: integral, abserr
17901 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17902 integer(IK) , intent(out) , contiguous :: sindex(:)
17903 integer(IK) , intent(out) :: neval
17904 integer(IK) , intent(out) :: nint
17905 integer(IK) :: err
17906 end function
17907#endif
17908
17909 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
17910
17911#if RK5_ENABLED
17912 module function QAWC_GK51_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17914 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK5
17915#endif
17916 use pm_kind, only: RKC => RK5
17917 procedure(real(RKC)) :: getFunc
17918 type(ninf_type) , intent(in) :: lb
17919 type(pinf_type) , intent(in) :: ub
17920 real(RKC) , intent(in) :: abstol
17921 real(RKC) , intent(in) :: reltol
17922 type(GK51_type) , intent(in) :: qrule
17923 type(wcauchy_type) , intent(in) :: help
17924 real(RKC) , intent(out) :: integral, abserr
17925 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17926 integer(IK) , intent(out) , contiguous :: sindex(:)
17927 integer(IK) , intent(out) :: neval
17928 integer(IK) , intent(out) :: nint
17929 integer(IK) :: err
17930 end function
17931#endif
17932
17933#if RK4_ENABLED
17934 module function QAWC_GK51_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17935#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17936 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK4
17937#endif
17938 use pm_kind, only: RKC => RK4
17939 procedure(real(RKC)) :: getFunc
17940 type(ninf_type) , intent(in) :: lb
17941 type(pinf_type) , intent(in) :: ub
17942 real(RKC) , intent(in) :: abstol
17943 real(RKC) , intent(in) :: reltol
17944 type(GK51_type) , intent(in) :: qrule
17945 type(wcauchy_type) , intent(in) :: help
17946 real(RKC) , intent(out) :: integral, abserr
17947 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17948 integer(IK) , intent(out) , contiguous :: sindex(:)
17949 integer(IK) , intent(out) :: neval
17950 integer(IK) , intent(out) :: nint
17951 integer(IK) :: err
17952 end function
17953#endif
17954
17955#if RK3_ENABLED
17956 module function QAWC_GK51_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17957#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17958 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK3
17959#endif
17960 use pm_kind, only: RKC => RK3
17961 procedure(real(RKC)) :: getFunc
17962 type(ninf_type) , intent(in) :: lb
17963 type(pinf_type) , intent(in) :: ub
17964 real(RKC) , intent(in) :: abstol
17965 real(RKC) , intent(in) :: reltol
17966 type(GK51_type) , intent(in) :: qrule
17967 type(wcauchy_type) , intent(in) :: help
17968 real(RKC) , intent(out) :: integral, abserr
17969 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17970 integer(IK) , intent(out) , contiguous :: sindex(:)
17971 integer(IK) , intent(out) :: neval
17972 integer(IK) , intent(out) :: nint
17973 integer(IK) :: err
17974 end function
17975#endif
17976
17977#if RK2_ENABLED
17978 module function QAWC_GK51_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
17979#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
17980 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK2
17981#endif
17982 use pm_kind, only: RKC => RK2
17983 procedure(real(RKC)) :: getFunc
17984 type(ninf_type) , intent(in) :: lb
17985 type(pinf_type) , intent(in) :: ub
17986 real(RKC) , intent(in) :: abstol
17987 real(RKC) , intent(in) :: reltol
17988 type(GK51_type) , intent(in) :: qrule
17989 type(wcauchy_type) , intent(in) :: help
17990 real(RKC) , intent(out) :: integral, abserr
17991 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
17992 integer(IK) , intent(out) , contiguous :: sindex(:)
17993 integer(IK) , intent(out) :: neval
17994 integer(IK) , intent(out) :: nint
17995 integer(IK) :: err
17996 end function
17997#endif
17998
17999#if RK1_ENABLED
18000 module function QAWC_GK51_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18001#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18002 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK51_II_RK1
18003#endif
18004 use pm_kind, only: RKC => RK1
18005 procedure(real(RKC)) :: getFunc
18006 type(ninf_type) , intent(in) :: lb
18007 type(pinf_type) , intent(in) :: ub
18008 real(RKC) , intent(in) :: abstol
18009 real(RKC) , intent(in) :: reltol
18010 type(GK51_type) , intent(in) :: qrule
18011 type(wcauchy_type) , intent(in) :: help
18012 real(RKC) , intent(out) :: integral, abserr
18013 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18014 integer(IK) , intent(out) , contiguous :: sindex(:)
18015 integer(IK) , intent(out) :: neval
18016 integer(IK) , intent(out) :: nint
18017 integer(IK) :: err
18018 end function
18019#endif
18020
18021 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18022
18023#if RK5_ENABLED
18024 module function QAWC_GK61_II_RK5(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18026 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK5
18027#endif
18028 use pm_kind, only: RKC => RK5
18029 procedure(real(RKC)) :: getFunc
18030 type(ninf_type) , intent(in) :: lb
18031 type(pinf_type) , intent(in) :: ub
18032 real(RKC) , intent(in) :: abstol
18033 real(RKC) , intent(in) :: reltol
18034 type(GK61_type) , intent(in) :: qrule
18035 type(wcauchy_type) , intent(in) :: help
18036 real(RKC) , intent(out) :: integral, abserr
18037 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18038 integer(IK) , intent(out) , contiguous :: sindex(:)
18039 integer(IK) , intent(out) :: neval
18040 integer(IK) , intent(out) :: nint
18041 integer(IK) :: err
18042 end function
18043#endif
18044
18045#if RK4_ENABLED
18046 module function QAWC_GK61_II_RK4(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18048 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK4
18049#endif
18050 use pm_kind, only: RKC => RK4
18051 procedure(real(RKC)) :: getFunc
18052 type(ninf_type) , intent(in) :: lb
18053 type(pinf_type) , intent(in) :: ub
18054 real(RKC) , intent(in) :: abstol
18055 real(RKC) , intent(in) :: reltol
18056 type(GK61_type) , intent(in) :: qrule
18057 type(wcauchy_type) , intent(in) :: help
18058 real(RKC) , intent(out) :: integral, abserr
18059 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18060 integer(IK) , intent(out) , contiguous :: sindex(:)
18061 integer(IK) , intent(out) :: neval
18062 integer(IK) , intent(out) :: nint
18063 integer(IK) :: err
18064 end function
18065#endif
18066
18067#if RK3_ENABLED
18068 module function QAWC_GK61_II_RK3(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18070 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK3
18071#endif
18072 use pm_kind, only: RKC => RK3
18073 procedure(real(RKC)) :: getFunc
18074 type(ninf_type) , intent(in) :: lb
18075 type(pinf_type) , intent(in) :: ub
18076 real(RKC) , intent(in) :: abstol
18077 real(RKC) , intent(in) :: reltol
18078 type(GK61_type) , intent(in) :: qrule
18079 type(wcauchy_type) , intent(in) :: help
18080 real(RKC) , intent(out) :: integral, abserr
18081 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18082 integer(IK) , intent(out) , contiguous :: sindex(:)
18083 integer(IK) , intent(out) :: neval
18084 integer(IK) , intent(out) :: nint
18085 integer(IK) :: err
18086 end function
18087#endif
18088
18089#if RK2_ENABLED
18090 module function QAWC_GK61_II_RK2(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18092 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK2
18093#endif
18094 use pm_kind, only: RKC => RK2
18095 procedure(real(RKC)) :: getFunc
18096 type(ninf_type) , intent(in) :: lb
18097 type(pinf_type) , intent(in) :: ub
18098 real(RKC) , intent(in) :: abstol
18099 real(RKC) , intent(in) :: reltol
18100 type(GK61_type) , intent(in) :: qrule
18101 type(wcauchy_type) , intent(in) :: help
18102 real(RKC) , intent(out) :: integral, abserr
18103 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18104 integer(IK) , intent(out) , contiguous :: sindex(:)
18105 integer(IK) , intent(out) :: neval
18106 integer(IK) , intent(out) :: nint
18107 integer(IK) :: err
18108 end function
18109#endif
18110
18111#if RK1_ENABLED
18112 module function QAWC_GK61_II_RK1(getFunc, lb, ub, abstol, reltol, qrule, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18114 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GK61_II_RK1
18115#endif
18116 use pm_kind, only: RKC => RK1
18117 procedure(real(RKC)) :: getFunc
18118 type(ninf_type) , intent(in) :: lb
18119 type(pinf_type) , intent(in) :: ub
18120 real(RKC) , intent(in) :: abstol
18121 real(RKC) , intent(in) :: reltol
18122 type(GK61_type) , intent(in) :: qrule
18123 type(wcauchy_type) , intent(in) :: help
18124 real(RKC) , intent(out) :: integral, abserr
18125 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18126 integer(IK) , intent(out) , contiguous :: sindex(:)
18127 integer(IK) , intent(out) :: neval
18128 integer(IK) , intent(out) :: nint
18129 integer(IK) :: err
18130 end function
18131#endif
18132
18133 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18134
18135#if RK5_ENABLED
18136 module function QAWC_GKXX_II_RK5(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18138 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK5
18139#endif
18140 use pm_kind, only: RKC => RK5
18141 procedure(real(RKC)) :: getFunc
18142 type(ninf_type) , intent(in) :: lb
18143 type(pinf_type) , intent(in) :: ub
18144 real(RKC) , intent(in) :: abstol
18145 real(RKC) , intent(in) :: reltol
18146 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18147 type(wcauchy_type) , intent(in) :: help
18148 real(RKC) , intent(out) :: integral, abserr
18149 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18150 integer(IK) , intent(out) , contiguous :: sindex(:)
18151 integer(IK) , intent(out) :: neval
18152 integer(IK) , intent(out) :: nint
18153 integer(IK) :: err
18154 end function
18155#endif
18156
18157#if RK4_ENABLED
18158 module function QAWC_GKXX_II_RK4(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18159#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18160 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK4
18161#endif
18162 use pm_kind, only: RKC => RK4
18163 procedure(real(RKC)) :: getFunc
18164 type(ninf_type) , intent(in) :: lb
18165 type(pinf_type) , intent(in) :: ub
18166 real(RKC) , intent(in) :: abstol
18167 real(RKC) , intent(in) :: reltol
18168 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18169 type(wcauchy_type) , intent(in) :: help
18170 real(RKC) , intent(out) :: integral, abserr
18171 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18172 integer(IK) , intent(out) , contiguous :: sindex(:)
18173 integer(IK) , intent(out) :: neval
18174 integer(IK) , intent(out) :: nint
18175 integer(IK) :: err
18176 end function
18177#endif
18178
18179#if RK3_ENABLED
18180 module function QAWC_GKXX_II_RK3(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18181#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18182 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK3
18183#endif
18184 use pm_kind, only: RKC => RK3
18185 procedure(real(RKC)) :: getFunc
18186 type(ninf_type) , intent(in) :: lb
18187 type(pinf_type) , intent(in) :: ub
18188 real(RKC) , intent(in) :: abstol
18189 real(RKC) , intent(in) :: reltol
18190 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18191 type(wcauchy_type) , intent(in) :: help
18192 real(RKC) , intent(out) :: integral, abserr
18193 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18194 integer(IK) , intent(out) , contiguous :: sindex(:)
18195 integer(IK) , intent(out) :: neval
18196 integer(IK) , intent(out) :: nint
18197 integer(IK) :: err
18198 end function
18199#endif
18200
18201#if RK2_ENABLED
18202 module function QAWC_GKXX_II_RK2(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18203#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18204 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK2
18205#endif
18206 use pm_kind, only: RKC => RK2
18207 procedure(real(RKC)) :: getFunc
18208 type(ninf_type) , intent(in) :: lb
18209 type(pinf_type) , intent(in) :: ub
18210 real(RKC) , intent(in) :: abstol
18211 real(RKC) , intent(in) :: reltol
18212 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18213 type(wcauchy_type) , intent(in) :: help
18214 real(RKC) , intent(out) :: integral, abserr
18215 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18216 integer(IK) , intent(out) , contiguous :: sindex(:)
18217 integer(IK) , intent(out) :: neval
18218 integer(IK) , intent(out) :: nint
18219 integer(IK) :: err
18220 end function
18221#endif
18222
18223#if RK1_ENABLED
18224 module function QAWC_GKXX_II_RK1(getFunc, lb, ub, abstol, reltol, nodeK, weightK, weightG, help, integral, abserr, sinfo, sindex, neval, nint) result(err)
18225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
18226 !DEC$ ATTRIBUTES DLLEXPORT :: QAWC_GKXX_II_RK1
18227#endif
18228 use pm_kind, only: RKC => RK1
18229 procedure(real(RKC)) :: getFunc
18230 type(ninf_type) , intent(in) :: lb
18231 type(pinf_type) , intent(in) :: ub
18232 real(RKC) , intent(in) :: abstol
18233 real(RKC) , intent(in) :: reltol
18234 real(RKC) , intent(in) , contiguous :: nodeK(:), weightK(:), weightG(:)
18235 type(wcauchy_type) , intent(in) :: help
18236 real(RKC) , intent(out) :: integral, abserr
18237 real(RKC) , intent(out) , contiguous :: sinfo(:,:)
18238 integer(IK) , intent(out) , contiguous :: sindex(:)
18239 integer(IK) , intent(out) :: neval
18240 integer(IK) , intent(out) :: nint
18241 integer(IK) :: err
18242 end function
18243#endif
18244
18245 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18246
18247 end interface
18248
18249!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
18250
18251end module pm_quadPack
Compute the 1D integral of the input scalar (potentially singular) integrand getFunc on a finite or s...
Compute the 1D integral of the input scalar integrand getFunc on the finite or infinite interval [a,...
Compute the 1D integral of the input scalar (potentially singular) integrand getFunc on a finite or s...
Compute and return the series expansion of the input function values via the Chebyshev polynomials of...
Sort the input local error estimates list (resulting from the interval subdivision process of the Ada...
Return the Kronrod nodes and weights of the extension to the -point Gauss-Legendre quadrature,...
Return the limit of a given sequence of approximations via the Epsilon method of Wynn (1961).
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
integer, parameter RK5
Definition: pm_kind.F90:478
integer, parameter RK4
Definition: pm_kind.F90:489
integer, parameter RK2
Definition: pm_kind.F90:511
integer, parameter RK3
Definition: pm_kind.F90:500
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
integer, parameter RKB
The scalar integer constant of intrinsic default kind, representing the Best-precision real kind supp...
Definition: pm_kind.F90:1371
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind t...
Definition: pm_kind.F90:858
integer, parameter RK1
Definition: pm_kind.F90:522
This module contains relevant mathematical constants.
character(*, SK), parameter MODULE_NAME
type(ninf_type), parameter ninf
The scalar constant object of type ninf_type that indicates the use of the negative infinity as an i...
type(pinf_type), parameter pinf
The scalar constant object of type pinf_type that indicates the use of the positive infinity as an i...
This module contains classes and procedures for non-adaptive and adaptive global numerical quadrature...
real(RKB), dimension(15), parameter weightG30
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(13), parameter nodeG25
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
integer(IK), parameter MAXLEN_EPSTAB
The scalar integer of default kind IK, containing the maximum size of the Table of Epsilon algorithm.
real(RKB), dimension(21), parameter weightK41
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(16), parameter weightK31
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(21), parameter nodeK41
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(8), parameter nodeG15
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(15), parameter nodeG30
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(8), parameter nodeK15
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(11), parameter weightK21
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(31), parameter nodeK61
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(16), parameter nodeK31
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(4), parameter nodeG7
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
type(GK31_type), parameter GK31
The scalar constant object of type GK31_type that indicates the use of 15-point Gauss-Legendre quadra...
real(RKB), dimension(5), parameter weightG10
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(13), parameter weightG25
A vector of type real of the highest-precision kind available by the processor, containing the weight...
type(GK51_type), parameter GK51
The scalar constant object of type GK51_type that indicates the use of 25-point Gauss-Legendre quadra...
real(RKB), dimension(11), parameter nodeK21
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(8), parameter weightK15
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(4), parameter weightG7
A vector of type real of the highest-precision kind available by the processor, containing the weight...
type(weps_type), parameter weps
The scalar constant object of type weps_type that indicates the use of Epsilon extrapolation method o...
real(RKB), dimension(26), parameter weightK51
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(10), parameter weightG20
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(26), parameter nodeK51
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
type(GK61_type), parameter GK61
The scalar constant object of type GK61_type that indicates the use of 30-point Gauss-Legendre quadra...
type(GK21_type), parameter GK21
The scalar constant object of type GK21_type that indicates the use of 10-point Gauss-Legendre quadra...
real(RKB), dimension(5), parameter nodeG10
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
real(RKB), dimension(31), parameter weightK61
A vector of type real of the highest-precision kind available by the processor, containing the weight...
real(RKB), dimension(8), parameter weightG15
A vector of type real of the highest-precision kind available by the processor, containing the weight...
type(GK15_type), parameter GK15
The scalar constant object of type GK15_type that indicates the use of 7-point Gauss-Legendre quadrat...
real(RKB), dimension(10), parameter nodeG20
A vector of type real of the highest-precision kind available by the processor, containing the abscis...
type(GK41_type), parameter GK41
The scalar constant object of type GK41_type that indicates the use of 20-point Gauss-Legendre quadra...
This is the indicator type for generating instances of objects that indicate the use of the negative ...
This is the indicator type for generating instances of objects that indicate the use of the positive ...
This is the indicator type for generating instances of objects that indicate the use of 7-point Gauss...
This is the indicator type for generating instances of objects that indicate the use of 10-point Gaus...
This is the indicator type for generating instances of objects that indicate the use of 15-point Gaus...
This is the indicator type for generating instances of objects that indicate the use of 20-point Gaus...
This is the indicator type for generating instances of objects that indicate the use of 25-point Gaus...
This is the indicator type for generating instances of objects that indicate the use of 30-point Gaus...
This is the derived type for constructing objects that signify the computation of the Cauchy Principa...
This is the derived type for constructing objects that signify the computation of the integral an arb...
This is the indicator type for generating instances of objects that indicate the use of Epsilon extra...
This is the derived type for constructing objects that signify the computation of the integral an arb...